Nothing
cspnn.predict <- function(nn,
newData){
newData <- as.matrix(newData, ncol = nn$k)
probs <- .cspnn_predict_cpp(xr = nn$xr,
newData = as.matrix(newData),
sigmaInverse = nn$sigmaInverse)
colnames(probs) <- nn$categories
categories <- sapply(max.col(m = probs, ties.method = "first"), function(x) nn$categories[x])
results <- list(categories = categories,
probabilities = probs)
return(results)
}
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.