Calibration.R

Calibration <- function(InputsModel, RunOptions, InputsCrit, CalibOptions,
                        FUN_MOD, FUN_CRIT, FUN_CALIB = Calibration_Michel, FUN_TRANSFO = NULL,
                        verbose = TRUE) {
  if (! is.function(FUN_CALIB)) {
    stop("'FUN_CALIB' must be a function")
  }
  return(FUN_CALIB(InputsModel, RunOptions, InputsCrit, CalibOptions, FUN_MOD, FUN_CRIT, FUN_TRANSFO, verbose = verbose))
}