Nothing
sumCrossEntropy <- function(weights,data, h2) {
numberOfVar <- ncol(data)
if(is.na(h2)) {
error <- apply(data, 1, function(x) (crossEntropy(computeOutput1(x[2:numberOfVar],weights),x[1])))
} else {
error <- apply(data, 1, function(x) (crossEntropy(computeOutput2(x[2:numberOfVar],weights),x[1])))
}
return(sum(error))
}
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.