Nothing
predictionPower <-
function( data, obs = "observed", pred = "predicted", obs_mean = NULL, nu = 0, round = 4, extOut = FALSE, extOutFile = NULL ){
mainfunc.stats( data, obs, pred, obs_mean, nu, round, "prediction", extOut, extOutFile, match.call() )
}
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.