fix vignette syntax

seroanalytics · Oct 7, 2024 · f01e8fe · f01e8fe
1 parent a00da6e
commit f01e8fe
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/tests/testthat/test-relative-dates.R b/tests/testthat/test-relative-dates.R
@@ -1,7 +1,7 @@
 test_that("Using relative and absolute dates gives the same answer", {
   # these take a while, so don't run on CI
   skip_on_ci()
-  dat_absolute <- data.table::fread(test_path("testdata", "delta_full_relative.rds"))
+  dat_absolute <- data.table::fread(system.file("delta_full.rds", package = "epikinetics"))
   mod_absolute <- biokinetics$new(data = dat_absolute, covariate_formula = ~0 + infection_history)
   delta_absolute <- mod_absolute$fit(parallel_chains = 4,
                    iter_warmup = 50,
@@ -11,7 +11,7 @@ test_that("Using relative and absolute dates gives the same answer", {
   set.seed(1)
   trajectories_absolute <- mod_absolute$simulate_individual_trajectories()
 
-  dat_relative <- data.table::fread(system.file("delta_full_relative.rds", package = "epikinetics"))
+  dat_relative <- data.table::fread(test_path("testdata", "delta_full_relative.rds"))
   mod_relative <- biokinetics$new(data = dat_relative, covariate_formula = ~0 + infection_history)
   delta_relative <- mod_relative$fit(parallel_chains = 4,
                    iter_warmup = 50,

diff --git a/vignettes/data.Rmd b/vignettes/data.Rmd
@@ -2,9 +2,9 @@
 title: "A guide to model input and output data"
 output: rmarkdown::html_vignette
 vignette: >
-%\VignetteIndexEntry{A guide to model input and output data}
-%\VignetteEngine{knitr::rmarkdown}
-%\VignetteEncoding{UTF-8}
+    %\VignetteIndexEntry{A guide to model input and output data}
+    %\VignetteEngine{knitr::rmarkdown}
+    %\VignetteEncoding{UTF-8}
 ---
 
 ```{r, include = FALSE}