src/Cal_model_dispatchers.R

In DmitryMarkovich/Thrombin_Analyzer: Thrombin Analyzer

################################################################################
Cal$set(
    which = "public", name = "fit_model",
    value = compiler::cmpfun(
        f = function(cal.model, updateProgress = NULL, progress = NULL,
                     weights = "Default (w = 1)") {
            switch(cal.model,
                   "LM" = fit_LM(silent = TRUE),
                   "EarlyMM" = fit_EarlyMM(silent = TRUE),
                   "LateExp" = fit_LateExp(silent = TRUE),
                   "T0LateExp" = fit_T0LateExp(silent = TRUE),
                   "LateMM" = fit_LateMM(silent = TRUE),
                   "T0LateMM" = fit_T0LateMM(silent = TRUE, weights = weights),
                   "CombinedMM" = fit_CombinedMM(silent = TRUE),
                   "Auto" = fit_Auto(silent = TRUE),
                   {
                       warning(paste0(">> Call to unknown model", cal.model));
                       return(NULL);
                   }
                   );
        }, options = kCmpFunOptions),
    overwrite = FALSE);  ## End of Cal$fit_model
################################################################################

################################################################################
Cal$set(
    which = "public", name = "get_model",
    value = compiler::cmpfun(
        f = function(cal.model) {
            switch(cal.model,
                   "LM" = get_LM(),
                   "EarlyMM" = get_EarlyMM(),
                   "LateExp" = get_LateExp(),
                   "T0LateExp" = get_T0LateExp(),
                   "LateMM" = get_LateMM(),
                   "T0LateMM" = get_T0LateMM(),
                   "CombinedMM" = get_CombinedMM(),
                   "Auto" = get_Auto(),
                   {
                       warning(paste0(">> Call to unknown get_model",
                                      cal.model));
                       return(NULL);
                   }
                   );
        }, options = kCmpFunOptions),
    overwrite = FALSE);  ## End of Cal$get_model
################################################################################

################################################################################
Cal$set(
    which = "public", name = "get_init_rate",
    value = compiler::cmpfun(
        f = function(cal.model) {
            switch(cal.model,
                   "LateExp" = get_init_rate_LateExp(),
                   "T0LateExp" = get_init_rate_LateExp(),
                   "LateMM" = get_init_rate_LateMM(),
                   "T0LateMM" = get_init_rate_T0LateMM(),
                   "CombinedMM" = get_init_rate_CombinedMM(),
                   "Auto" = get_init_rate_Auto(),
                   {
                       warning(paste0(">> Call to unknown get_model",
                                      cal.model));
                       return(rep(0, length(data$x)));
                   }
                   );
        }, options = kCmpFunOptions),
    overwrite = FALSE);  ## End of Cal$get_init_rate
################################################################################

################################################################################
Cal$set(
    which = "public", name = "parms_model",
    value = compiler::cmpfun(
        f = function(cal.model, e0, s0) {
            switch(cal.model,
                   "LM" = parms_LM(e0, s0),
                   "EarlyMM" = parms_EarlyMM(e0, s0),
                   "LateExp" = parms_LateExp(e0, s0),
                   "T0LateExp" = parms_LateExp(e0, s0),
                   "LateMM" = parms_LateMM(e0, s0),
                   "T0LateMM" = parms_T0LateMM(e0, s0),
                   "CombinedMM" = parms_CombinedMM(e0, s0),
                   "Auto" = parms_Auto(e0, s0),
                   {
                       warning(paste0(">> Call to unknown model", cal.model));
                       return(NULL);
                   }
                   );
        }, options = kCmpFunOptions),
    overwrite = FALSE);  ## End of Cal$parms_model
################################################################################