R/initModel.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

"initModel" <-
  # initializes the model class based on a match of the named argument "mod_type" to one of the supported model types
  # Variables directly affected by this function:
  # Initialized: model@clpType
  # Modified: model@clpType, model@datCall
  function(...) {
    dots <- list(...)
    if ("mod_type" %in% names(dots)) {
      if (dots$mod_type == "kin") {
        model <- kin(...)
      }
      if (dots$mod_type == "spec") {
        model <- spec(...)
      }
      if (dots$mod_type == "mass") {
        model <- mass(...)
      }
      if (dots$mod_type == "amp") {
        model <- amp(...)
      }
    }
    if (model@mod_type == "spec") {
      model@clpType <- "x"
    } else {
      model@clpType <- "x2"
    }
    model@datCall <- append(model@datCall, match.call())
    model <- initOneModel(model)
    model
  }