R/examineFit.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"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)

}