Nothing
`performance.wa` <- function(object, ...) {
retval <- with(object, c(rmse, r.squared, avg.bias,
max.bias))
names(retval) <- c("RMSE","R2","Avg.Bias","Max.Bias")
class(retval) <- "performance"
retval
}
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.