#' This environment contain the best values for the fit
#' in real time
#' @export
bestEvalEnv <- new.env()
assign('startGs', NULL, envir = bestEvalEnv)
#' @export
saveStep <- function(chi2, val, pars) {
evalStep <- list(chi2 = chi2, val = val, pars = pars)
assign('lastEval', evalStep, envir = bestEvalEnv)
# check if this is the best evaluation so far
bestEval <- get('bestEval', envir = bestEvalEnv)
if(bestEval$val > val) {
assign('bestEval', evalStep, envir = bestEvalEnv)
str <- paste('-> chi2 =', round(chi2, 3),' pars =', do.call(paste, as.list(round(pars, 6))))
flog.debug(str)
}
}
#' @export
resetEvalTracker <- function(pars) {
dummyVals <- list(chi2 = 1e50, val = 1e50, pars = pars, gs = NULL)
assign('bestEval', dummyVals, envir = bestEvalEnv)
assign('lastEval', dummyVals, envir = bestEvalEnv)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.