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