tests/testthat/helper.R

In morseTKTD: Bayesian Inference of TKTD Models

library(morseTKTD)
library(testthat)

data("propiconazole")
data("propiconazole_pulse_exposure")
data("cadmium2")
Cd2 <- cadmium2
PRZ_cst <- propiconazole
PRZ_var <- propiconazole_pulse_exposure

# LOAD FIT
# cPRZ_ITfit <- readRDS(test_path("fixtures", "cPRZ_ITfit.rds"))
# cPRZ_SDfit <- readRDS(test_path("fixtures", "cPRZ_SDfit.rds"))
# vPRZ_ITfit <- readRDS(test_path("fixtures", "vPRZ_ITfit.rds"))
# vPRZ_SDfit <- readRDS(test_path("fixtures", "vPRZ_SDfit.rds"))