R/applyWeightingModel.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"applyWeightingModel" <- 
function (model) 
{
  if (length(model@weightpar) > 0 || length(model@weightList) > 0) {
    w <- weightPsi(model)
    model@weight <- TRUE
    model@psi.weight <- w$psi.weight
    model@weightM <- w$weight
  }
  else model@psi.weight <- model@psi.df
  
  model
}