elmtrain.formula <-
function(formula,data,nhid,actfun,...) {
mf <- model.frame(formula=formula, data=data)
x <- model.matrix(attr(mf, "terms"), data=mf)
y <- model.response(mf)
model <- elmtrain.default(x=x,y=y,nhid=nhid,actfun=actfun, ...)
model$call <- match.call()
model$formula <- formula
model
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.