R/set_initModelClass_mass.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

  setMethod("initModelClass", signature(model="mass"), 
    function (model) 
    {
	model@clpdep <- (model@weight || model@lclp0 || model@lclpequ)
	
	model@ncomp <- length(model@peakpar) + if(model@extracomp) 1 else 0
	model@ncolc <- model@ncomp	
	model
   })