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
}