R/getAniK.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"getAniK" <- function(k, dataset, ani, anipar) {
  if (ani$angle[dataset] != "MA") {
    for (i in 1:length(k)) {
      if (ani$anifunc[i] == "exp") {
        k[i] <- k[i] + anipar[ani$parperm[[i]][2]]
      }
      if (ani$anifunc[i] == "expvar") {
        k[i] <- k[i] + anipar[ani$parperm[[i]][3]]
      }
    }
  }
  k
}