Nothing
initScore <-
function (y, offset, parms, wt)
{
if (!is.null(offset))
y <- y - offset
list(y = y, parms = 0, numresp = 1, numy = 1, summary = function(yval,
dev, wt, ylevel, digits) {
paste(" predicted score=", format(yval, justify = "left"),
" expected loss=", format(dev/wt, digits))
}, text = function(yval, dev, wt, ylevel, digits, n, use.n) {
if (use.n) {
out <- paste(format(yval, justify = "centre"), "\n",
"N = ", wt, sep = "")
} else {
out <- format(yval, justify = "centre")
}
return(out)
})
}
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.