R/set_getClpindepX_spec.R

  setMethod("getClpindepX", signature(model="spec"), 
    function(model, multimodel, theta, returnX, rawtheta, dind) 
    {
       if(returnX) 
		 theta <- getThetaCl(rawtheta, multimodel)[[dind]]
       x <- specModel(theta@specpar, 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.