Nothing
inudge.plot.fit <-
function (data, obj,resolution=100,breaks=100,legpos=NULL,xlim=NULL,main=NULL,...)
{
obs <- unlist(data);
if(is.null(xlim)){xlim=range(obs);}
if(is.null(main)){main="Goodness of Fit";}
hist(obs,freq=FALSE,breaks=breaks,xlim=xlim,main=main,...);
inudge.plot.mix(obj,resolution=resolution,col='black',lwd=3, new.plot=FALSE);
inudge.plot.comp(data,obj,new.plot=FALSE,legpos=legpos,xlim=xlim,lwd=2);
}
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.