R/fit.R

In TimeWz667/odin2data: A Model Fitting Toolkit For Simulation Models With The Odin Package (Title Case)

#' Fit simulation model to data with Likelihood-free methods
#'
#' @param lf a sim_model_likefree object
#' @param n_posterior number of posterior particles to collect
#' @param method algorithm for model fitting
#' @param ... arguments for a specific method
#'
#' @return
#' @export
#'
#' @examples
fit <- function(lf, n_posterior, method = c("abc", "abcsmc", "abcpmc"), ...) {
  method <- match.arg(method)

  alg <- switch(method,
    abc = fit_abc, abcsmc = fit_abc_smc, abcpmc = fit_abc_pmc
  )
  post <- alg(lf, n_posterior = n_posterior, ...)
  return(post)
}