search for: toohigh

...sex+educ+age) anova(lm10) lm11 <- lm(minrisk.numbers.sm ~ truste.score+worry.numbers.sm) anova(lm11) #lm12 <- lm(nprob.m[,1,5,9] ~ worry.numbers.sm+pc.had+stai.score) #anova(lm12) #lm 13-15 used above # tells you which Ss said both #apply((minrisk.m==1 & exagg.m==1)+0,1,sum,na.rm=T) toohigh.sm <- apply(nprob.m>rightans.m,1,mean,na.rm=T) toohigh.numbers.sm <- apply(nprob.m[,5:12]>rightans.m[,5:12],1,mean,na.rm=T) #If in a given scenario, your nprob is greater than the right answer, you #get a 1 and if not, you get a 0. So if we take the avg of these across the #2-3 numb...