data(roses)
rosefold <- as.folder(roses[,c("Sha","Den","Sym","rose")])
result1 <- fpcad(rosefold)
interpret(result1)
if (FALSE) {
interpret(result1, moment = "var")
}
interpret(result1, moment = "cor")
interpret(result1, nscore = 2)
Run the code above in your browser using DataLab