powered by
"summary"(object, ...) "print"(x, ...)
summary
print
sprmda
data(iris) data <- droplevels(subset(iris,iris$Species!="setosa")) smod <- sprmda(Species~.,data, a=2, eta=0.7, class="lda") smod summary(smod)
Run the code above in your browser using DataLab