Fix errors in examples in LFMCMC.R

UofUEpiBio · Nov 20, 2024 · 97edc81 · 97edc81
1 parent 37446ed
commit 97edc81
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/LFMCMC.R b/R/LFMCMC.R
@@ -26,14 +26,14 @@
 #'
 #' ## Setup LFMCMC
 #' # Extract the observed data from the model
-#' obs_data <- unname(as.integer(get_today_total(model_sir)))
+#' obs_data <- get_today_total(model_sir)
 #'
 #' # Define the simulation function
 #' simfun <- function(params) {
 #'   set_param(model_sir, "Recovery rate", params[1])
 #'   set_param(model_sir, "Transmission rate", params[2])
 #'   run(model_sir, ndays = 50)
-#'   res <- unname(as.integer(get_today_total(model_sir)))
+#'   res <- get_today_total(model_sir)
 #'   return(res)
 #' }
 #'

diff --git a/man/LFMCMC.Rd b/man/LFMCMC.Rd