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