R/set_initModelClass_mass.R

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

Try the TIMP package in your browser

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

TIMP documentation built on May 29, 2017, 1:21 p.m.