R/inudge.plot.fit.R

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);
}

Try the DIME package in your browser

Any scripts or data that you put into this service are public.

DIME documentation built on May 9, 2022, 5:05 p.m.