if (FALSE) {
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))))
}
Run the code above in your browser using DataLab