From 16461b2f43b2f91566a641704c11dd26ae916784 Mon Sep 17 00:00:00 2001
From: Andrew Pulsipher <a.pulsipher@utah.edu>
Date: Mon, 4 Nov 2024 12:36:12 -0700
Subject: [PATCH] Update comments in vignette

---
 vignettes/likelihood-free-mcmc.Rmd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/vignettes/likelihood-free-mcmc.Rmd b/vignettes/likelihood-free-mcmc.Rmd
index b694e956..c5e87fe4 100644
--- 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) |>