Rebuild smoking vignette

dmphillippo · Mar 6, 2024 · 8257f5a · 8257f5a
1 parent ccdaddc
commit 8257f5a
Show file tree

Hide file tree

Showing 2 changed files with 315 additions and 315 deletions.
diff --git a/tests/testthat/test-example_smoking.R b/tests/testthat/test-example_smoking.R
@@ -8,10 +8,10 @@ skip_on_cran()
 params <-
 list(run_tests = FALSE)
 
-## ----code=readLines("children/knitr_setup.R"), include=FALSE--------------------------------------
+## ---- code=readLines("children/knitr_setup.R"), include=FALSE-------------------------------------
 
 
-## ----eval = FALSE---------------------------------------------------------------------------------
+## ---- eval = FALSE--------------------------------------------------------------------------------
 ## library(multinma)
 ## options(mc.cores = parallel::detectCores())
 
@@ -37,7 +37,7 @@ smknet <- set_agd_arm(smoking,
 smknet
 
 
-## ----eval=FALSE-----------------------------------------------------------------------------------
+## ---- eval=FALSE----------------------------------------------------------------------------------
 ## plot(smknet, weight_edges = TRUE, weight_nodes = TRUE)
 
 ## ----smoking_network_plot, echo=FALSE, fig.width=8, fig.height=6, out.width="100%"----------------
@@ -63,7 +63,7 @@ smkfit <- nma(smknet,
 smkfit
 
 
-## ----eval=FALSE-----------------------------------------------------------------------------------
+## ---- eval=FALSE----------------------------------------------------------------------------------
 ## # Not run
 ## print(smkfit, pars = c("d", "tau", "mu", "delta"))
 
@@ -122,7 +122,7 @@ summary(smk_nodesplit)
 
 ## ----smk_nodesplit, fig.width = 7-----------------------------------------------------------------
 plot(smk_nodesplit) +
-  ggplot2::theme(legend.position = "bottom", legend.direct = "horizontal")
+  ggplot2::theme(legend.position = "bottom", legend.direction = "horizontal")
 
 
 ## ----smoking_releff, fig.height=4.5---------------------------------------------------------------