R/weightNL.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"weightNL" <- function(temp, model, n) {
  if (model@clpType == "x2") {
    temp <- temp * model@weightM[, n]
  }
  if (model@clpType == "x") {
    temp <- temp * model@weightM[n, ]
  }
  temp
}