R/set_residPart_kin.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

setMethod("residPart", signature(model = "kin"), function(model,
                                                          group, multimodel, thetalist,
                                                          clpindepX, finished, returnX,
                                                          rawtheta) {
  if (returnX) {
    thetalist <- getThetaCl(rawtheta, multimodel)
  }
  concen <- getKinConcen(
    group = group, multimodel = multimodel,
    thetalist = thetalist, clpindepX = clpindepX,
    finished = finished
  )
  rlist <- attr(concen, "rlist")
  psi <- attr(concen, "psi")
  retval <- getResidRet(
    concen, psi, rlist, returnX, finished,
    multimodel@nnls, multimodel@algorithm,
    multimodel@nnlscrit, group
  )
  retval
})