# NOT RUN {
data(container.df)
fit = hotelling.test(.~gp, data = container.df)
fit
subs.df = container.df[1:10,]
subs.df$gp = rep(1:2, c(5,5))
fitPerm = hotelling.test(Al+Fe~gp, data = subs.df, perm = TRUE)
fitPerm
plot(fitPerm)
data(bottle.df)
fit12 = hotelling.test(.~Number, data = bottle.df)
fit12
fit23 = hotelling.test(.~Number, data = bottle.df, pair = c(2,3))
fit23
data(manova1.df)
fit = hotelling.test(wratr+wrata~treatment, data = manova1.df, var.equal = FALSE)
fit
x = list(mean = c(7.81, 108.77, 44.92),
cov = matrix(c(0.461, 1.18, 4.49,
1.18, 3776.4, -17.35,
4.49, -17.35, 147.24), nc = 3, byrow = TRUE),
n = 13)
y = list(mean = c(5.89, 41.9, 20.8),
cov = matrix(c(0.148, -0.679, 0.209,
-0.679, 96.10, 20.20,
0.209, 20.20, 24.18), nc = 3, byrow = TRUE),
n = 10)
fit = hotelling.test(x, y, var.equal = FALSE)
fit
# }
Run the code above in your browser using DataLab