## Not run:
# data(dataEP05A2_1)
# fit <- anovaVCA(y~day/run, dataEP05A2_1)
# # solve mixed model equations including random effects
# fit <- solveMME(fit)
# plotRandVar(fit, "cond", "stand")
# plotRandVar(fit, 1, "stud") # 1st random term 'day'
# plotRandVar(fit, "day", "stud") # equivalent to the above
#
# # for larger datasets residuals can hardly be identified
# # pick out interesting points with the mouse
#
# plotRandVar(fit, "marg", "stud", pick=TRUE)
#
# # customize the appearance
# plotRandVar( fit, 1, "stud", Vlines=list(col=c("red", "darkgreen")),
# Xlabels=list(offset=.5, srt=60, cex=1, col="blue"),
# Points=list(col=c("black", "red", rep("black", 18)),
# pch=c(3,17,rep(3,18)), cex=c(1,2,rep(1,18))))
# ## End(Not run)
Run the code above in your browser using DataLab