powered by
data(rootstock)
rootstock
y1
y2
y3
y4
data(rootstock) attach(rootstock) rs <- rootstock[,1] rs <- factor(rs,ordered=is.ordered(rs)) # Too important a step root.manova <- manova(cbind(y1,y2,y3,y4)~rs) summary(root.manova, test = "Wilks")
Run the code above in your browser using DataLab