search for: lm7

...s) sub<-c(subject,subject) library(nlme) lm5<-lme(ppd~occ+gr+occgr,random=~1|sub) lm5f<-fixed.effects(lm5) lm5c<-as.matrix(lm5f) lm5a<-anova(lm5) lm6<-lme(ppd~occ+gr+occgr,random=~1|sub,method="ML") lm6f<-fixed.effects(lm6) lm6c<-as.matrix(lm6f) lm6a<-anova(lm6) lm7<-lme(ppd~occ+gr+occgr+bappd,random=~1|sub,method="ML") lm7f<-fixed.effects(lm7) lm7c<-as.matrix(lm7f) lm7a<-anova(lm7) param1[itn]<-coef(summary(lm1))[2,1] param2[itn]<-coef(summary(lm2))[2,1] param3[itn]<-coef(summary(lm3))[2,1] param4[itn]<-coef(summary(lm4))[3,1...

...ers.sm+QOL.numbers.sm +worry.numbers.sm+trust.numbers.sm+comfort.numbers.sm+mss.m.score+mss.b.score) anova(lm4) #lm5 <- lm(deviat.logo.sm ~ stai.score+lot.score+educ+sex+minrisk.numbers.sm+QOL.numbers.sm #+worry.numbers.sm) #anova(lm5) #lm6 <- lm(deviat.logo.sm ~ educ+sex+age) #anova(lm6) #lm7 <- lm(deviat.logo.sm ~ stai.score) #anova(lm7) #lm8 <- lm(deviat.logo.sm ~ worry.numbers.sm) #anova(lm8) #lm9 <- lm(minrisk.numbers.sm ~ truste.score+mss.m.score+worry.numbers.sm+stai.score) #anova(lm9) lm10 <- lm(minrisk.numbers.sm ~ truste.score+mss.m.score+worry.numbers.sm+sex+ed...