Nothing
NeuralNetCost <- function(X, Y, hidden, theta){
n=nrow(X)
p=ncol(X)
q=ncol(Y)
sl=c(p, hidden, q)
L=length(sl)
Theta=list()
ini=0
for (i in 1 : (L-1)){
elem=sl[i+1]*sl[i]
end=ini+elem
Theta[[i]]=matrix(theta[ini:end], nrow=sl[i+1])
ini=end
}
}
NeuralNetwork <- function(X, y, hidden=c(5,2,3), InitPar=NULL, rang=0.5, maxiter=100){
}
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.