Nothing
yh_qda <- function(dfTr, dfTe){
p <- ncol(dfTr)-1
X <- dfTr[,1:p]
y <- dfTr[,p+1]
Xte <- dfTe[,1:p]
yte <- dfTe[,p+1]
ans <- MASS::qda(x=X, grouping=y)
yh <- predict(ans, newdata=Xte)$class
unlist(list(cost=misclassificationrate(yte, yh),
pcorr=cor(as.numeric(yte), as.numeric(yh))))
}
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.