R/set_getClpindepX_mass.R

    setMethod("getClpindepX", signature(model = "mass"), function(model, 
        multimodel, theta, returnX, rawtheta, dind) {
	if(returnX) 
		 theta <-  getThetaCl(rawtheta, multimodel)[[dind]]
	x <- compModelMass(theta, model)	
        if(returnX) 
		    x <- as.vector(x) 
	
	x
		    
    })

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.