
hcf.aov(x, ina, fc = TRUE)
lr.aov(x, ina)
embed.aov(x, ina)
het.aov(x, ina)
lr.aov, embed.aov, het.aov, spherconc.test, conc.test
x <- rvmf(60, rnorm(3), 15)
ina <- rep(1:3, each = 20)
hcf.aov(x, ina)
hcf.aov(x, ina, fc = FALSE)
lr.aov(x, ina)
embed.aov(x, ina)
het.aov(x, ina)
Run the code above in your browser using DataLab