Nothing
"examineFit" <-
function (resultfitModel, opt=vector())
{
if(length(opt) == 0)
plotoptions <- resultfitModel$currModel@optlist[[1]]
else
plotoptions <- opt
plotter(resultfitModel$currModel@modellist[[1]],
resultfitModel$currModel,
resultfitModel$currTheta,
plotoptions)
}
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.