R/getMvec.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"getMvec" <-
  function (model) 
  {
    # dependent params. are specified as list or vector
    # in prel; get their indices in the parameter group 
    # in its vectorized form 
    
    ppars <- intersect(slotNames(theta()), slotNames(model))
    pinde <- vector("list", length(ppars))
    for(p in 1:length(pinde)) pinde[[p]] <- vector()
    names(pinde) <- ppars
    
    pinde
  }