Function to minimize estimate error of Bayes factors in BayesFactorBF objects

minimizeError.R

minimizeError <- function(x, max_error, multicore = TRUE) {
  while(any(x@bayesFactor$error > max_error)) {
    message("Current error: ", x@bayesFactor$error)
    x <- recompute(x, multicore = multicore)
  }
  x
}