if (FALSE) { # identical(tolower(Sys.getenv("NOT_CRAN")), "true")
columns <- c("fruit", "veg", "tobacco")
data <- data.frame(
list(
"BMI" = rnorm(5, mean = 0, sd = 1),
"fruit" = rnorm(5, mean = 0, sd = 1),
"veg" = rnorm(5, mean = 0, sd = 1),
"tobacco" = rnorm(5, mean = 0, sd = 1)
)
)
parameters <- list(
fruit = c(0.3),
veg = c(0.25),
tobacco = c(0.4)
)
output_jags <- sensitivity_analysis(
parameters,
data,
"BMI ~ fruit + veg + tobacco",
columns
)
}
Run the code above in your browser using DataLab