R/addDscal.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"addDscal" <-
  function(modellist, dscal) {
    # dscal is list with structure:
    # list ( list (to, from, value = c(vector of scaling),perclp =logical))

    if (length(dscal) != 0) {
      for (i in 1:length(dscal)) {
        if (length(dscal[[i]]$perclp) == 0) {
          dscal[[i]]$perclp <- FALSE
        }
        modellist[[dscal[[i]]$to]]@dscalspec <- dscal[[i]]
        modellist[[dscal[[i]]$to]]@drel <- dscal[[i]]$value
      }
    }
    modellist
  }