if (FALSE) {
fm1.aov <- lcc(data = hue, subject = "Fruit", resp = "H_mean", method = "Method",
time = "Time", qf = 2, qr = 1)
fm2.aov <- update(fm1.aov, qr = 2)
anova(fm1.aov, fm2.aov)
}
if (FALSE) {
fm3.aov <- update(fm2.aov, REML = FALSE)
fm4.aov <- update(fm2.aov, REML = FALSE, qf = 3)
anova(fm3.aov, fm4.aov)
}
if (FALSE) {
fm5.aov <- update(fm2.aov, var.class = varExp, weights.form = "time")
anova(fm1.aov, fm2.aov, fm5.aov)
}
Run the code above in your browser using DataLab