################################################################################
TG$set(
which = "public", name = "fit_model",
value = compiler::cmpfun(
f = function(tg.model, updateProgress = NULL, progress = NULL,
silent = TRUE, weights = "Default (w = 1)") {
## print(tg.model);
switch(tg.model,
## "Gamma" = fit_Gamma(silent = TRUE),
"T0Gamma" = fit_T0Gamma(silent = silent),
## "GammaInt" = fit_GammaInt(silent = silent),
"T0GammaInt" = fit_T0GammaInt(silent = silent),
"T0GammaInt2" = fit_T0GammaInt2(silent = silent),
"T0GammaInt2_test" = fit_T0GammaInt2_test(silent = silent),
## "LateExpGammaInt" = fit_LateExpGammaInt(silent = silent),
"LateExpT0GammaInt" = fit_LateExpT0GammaInt(silent = silent),
"LateExpT0GammaInt2" = fit_LateExpT0GammaInt2(silent = silent),
"Auto" = fit_Auto(silent = silent),
"Pade" = fit_Pade(weights = weights),
{ warning(paste0(">> In fit_model: call to unknown tg.model ",
tg.model))}
);
}, options = kCmpFunOptions),
overwrite = FALSE); ## End of TG$fit_model
################################################################################
################################################################################
TG$set(
which = "public", name = "get_model",
value = compiler::cmpfun(
f = function(tg.model) {
switch(tg.model,
"None" = return(rep(NA, length(data$x))),
## "Gamma" = get_Gamma(),
"T0Gamma" = get_T0Gamma(),
## "GammaInt" = get_GammaInt(),
"T0GammaInt" = get_T0GammaInt(),
"T0GammaInt2" = get_T0GammaInt2(),
"T0GammaInt2_test" = get_T0GammaInt2_test(),
## "LateExpGammaInt" = get_LateExpGammaInt(),
"LateExpT0GammaInt" = get_LateExpT0GammaInt(),
"LateExpT0GammaInt2" = get_LateExpT0GammaInt2(),
"Auto" = get_Auto(),
"Pade" = get_Pade(),
{ warning(paste0(">> In get_model: call to unknown tg.model ",
tg.model))}
);
}, options = kCmpFunOptions),
overwrite = FALSE); ## End of TG$get_model
################################################################################
################################################################################
TG$set(
which = "public", name = "parms_model",
value = compiler::cmpfun(
f = function(tg.model, cal.CF = 1) {
switch(tg.model,
"None" = return(parms <<- data.frame(
Parameter = kParameterNames,
Value = rep(NA, 6), Units = kAUnits)),
## "Gamma" = parms_Gamma(cal.CF),
"T0Gamma" = parms_T0Gamma(cal.CF),
## "GammaInt" = parms_GammaInt(cal.CF),
"T0GammaInt" = parms_T0GammaInt(cal.CF),
"T0GammaInt2" = parms_T0GammaInt2(cal.CF),
"T0GammaInt2_test" = parms_T0GammaInt2_test(cal.CF),
## "LateExpGammaInt" = parms_LateExpGammaInt(cal.CF),
"LateExpT0GammaInt" = parms_LateExpT0GammaInt(cal.CF),
"LateExpT0GammaInt2" = parms_LateExpT0GammaInt2(cal.CF),
"Auto" = parms_Auto(cal.CF),
{ warning(paste0(">> In parms_model: call to unknown tg.model ",
tg.model))}
);
}, options = kCmpFunOptions),
overwrite = FALSE); ## End of TG$parms_model
################################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.