data(roses)
rosesf <- as.folder(roses[,c("Sha","Den","Sym","rose")])
# Dual STATIS on the covariance matrices
if (FALSE) {
result <- dstatis.inter(rosesf, group.name = "rose")
interpret(result)
interpret(result, moment = "var")
interpret(result, moment = "cor")
interpret(result, nscore = 2)
}
Run the code above in your browser using DataLab