# NOT RUN {
#import lme4 package and lmerTest package
library(lmerTest)
# }
# NOT RUN {
m <- lmer(Informed.liking ~ Product*Information*Gender+
(1|Consumer) + (1|Product:Consumer), data=ham)
#elimination of non-significant effects
s <- step(m)
#plot of post-hoc analysis of the final model
plot(s)
m <- lmer(Coloursaturation ~ TVset*Picture+
(1|Assessor)+(1|Assessor:TVset), data=TVbo)
step(m, keep.effs = "Assessor")
# }
# NOT RUN {
# }
# NOT RUN {
<!-- % Add one or more standard keywords, see file 'KEYWORDS' in the -->
# }
# NOT RUN {
<!-- % R documentation directory. -->
# }
# NOT RUN {
<!-- %\keyword{ ~kwd1 } -->
# }
# NOT RUN {
<!-- %\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line -->
# }
Run the code above in your browser using DataLab