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