Nothing
fun.classCheck <-
function(YPmodelResult,...)
{
if(class(YPmodelResult) != 'YPmodel'){
stop("Error: ", paste(sQuote("YPmodelResult"), sep = ""), " must be of class ",
paste(dQuote("YPmodel"), sep = ""), sep = "")
}
}
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.