R/set_getClpindepX_mass.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

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