diff --git a/vignettes/IBD.Rmd b/vignettes/IBD.Rmd index f27b089..085dd32 100644 --- a/vignettes/IBD.Rmd +++ b/vignettes/IBD.Rmd @@ -20,7 +20,8 @@ knitr::opts_chunk$set( cache = FALSE, dev.args = list(bg = "transparent"), out.width = 600, - crop = NULL + crop = NULL, + eval = FALSE ) knitr::knit_hooks$set(output = multimedia::ansi_aware_handler) @@ -298,7 +299,7 @@ confound_ix <- data.frame( ) rho_seq <- seq(-0.5, 0.5, length.out = 10) # sensitivity_overall <- sensitivity(model, exper, confound_ix, n_boot = 100, rho_seq = rho_seq, t1 = 1, t2 = 2) -sensitivity_overall <- readRDS(url("https://go.wisc.edu/331sq1")) +sensitivity_overall <- read_csv("https://go.wisc.edu/aj4vg9") ``` We visualize the results below. Across correlations strengths from -0.5 to 0.5, @@ -439,7 +440,7 @@ p1 | p2 ```{r} confound_ix <- data.frame( - mediator = c("Choladousia", "Bilophila", "gCAG103"), + mediator = c("gCholadousia", "gBilophila", "gCAG103"), outcome = c( "m0066_taurine", "m0066_taurine", "m0900_ketodeoxycholate" )