Update comments in vignette

UofUEpiBio · Nov 4, 2024 · 16461b2 · 16461b2
1 parent 822a522
commit 16461b2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/vignettes/likelihood-free-mcmc.Rmd b/vignettes/likelihood-free-mcmc.Rmd
@@ -81,6 +81,7 @@ sumfun <- function(dat) {
 }
 
 # Define the LFMCMC proposal function
+# - Based on proposal_fun_normal from lfmcmc-meat.hpp
 propfun <- function(params_prev) {
   res <- params_prev + rnorm(length(params_prev), )
   return(res)
@@ -97,7 +98,7 @@ kernelfun <- function(stats_now, stats_obs, epsilon) {
   return(ifelse(sqrt(ans) < epsilon, 1.0, 0.0))
 }
 
-# Create the LFMCMC model using a norm reflective proposal function and a Gaussian kernel function
+# Create the LFMCMC model
 lfmcmc_model <- LFMCMC(model_sir) |>
   set_simulation_fun(simfun) |>
   set_summary_fun(sumfun) |>