Nothing
predict.yai <-
function(object,newdata,...)
{
if (missing(newdata)) impute.yai(object,...) else
{
al <- list(...)
impute.yai(newtargets(object,newdata,al$k,al$ann),...)
}
}
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.