RunModel.R

RunModel <- function(InputsModel, RunOptions, Param, FUN_MOD) {
  FUN_MOD <- match.fun(FUN_MOD)
  return(FUN_MOD(InputsModel = InputsModel, RunOptions = RunOptions, Param = Param))
}