R/set_initModelClass_spec.R

  setMethod("initModelClass", signature(model="spec"), 
    function (model) 
    {
	model@specdisp <- length(model@specdisppar) != 0 
	model@timedep <- model@weight || model@lclp0 || model@specdisp
	model@clpdep <- model@timedep
        model@ncomp <- length(model@specpar)
	if(length(model@nt)==0) {
        model@ncole <- array(model@ncomp, 1)
	} else {
	model@ncole <- array(model@ncomp, model@nt)
	}
	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 2, 2019, 5:55 p.m.