Nothing
qda.train <- function(data){
new.frm <- data.frame(data)
z <- qda(formula=as.formula(paste("X", ncol(data), " ~ .", sep="")), data = new.frm)#, prior = rep(1, dimension)/dimension)
return (z)
}
qda.classify <- function(objects, qda){
z <- predict(qda, data.frame(objects))$class
return (z)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.