Line 272 of SimDK.R is where they produced the quartiles for top and bottom performers. But their code for generating both is exactly the same. Code> # Lowest

Line 272 of SimDK.R is where they produced the quartiles for top and bottom performers. But their code for generating both is exactly the same. Code> # Lowest performers t.low.t <- t.test(Pair(Ability,Perception)~1, data=subset(df.w,Quants==1))$statistic # first quartile t-test (paired) t.low.p <- t.test(Pair(Ability,Perception)~1, data=subset(df.w,Quants==1))$p.value # first quartile t-test (paired) # Highest performers t.hi.t <- t.test(Pair(Ability,Perception)~1, data=subset(df.w,Quants==1))$statistic # first quartile t-test (paired) t.hi.p <- t.test(Pair(Ability,Perception)~1, data=subset(df.w,Quants==1))$p.value # first quartile t-test (paired)