tests/testthat/helper.R

In morseDR: Bayesian Inference of Binary, Count and Continuous Data in Toxicology

library(testthat)

# # DATA AND FIT ARE NOT SEND TO CRAN TO SAVE PACKAGE SIZE
# testthat::skip_on_cran()
# # LOAD DATA
data("cadmium2")
Cd2 = cadmium2
data("cadmium_daphnia")
Cdd = cadmium_daphnia
# Cd2 <- readRDS(test_path("fixtures", "cadmium2.rds"))
# Cdd <- readRDS(test_path("fixtures", "cadmium_daphnia.rds"))
# reco27 <- readRDS(test_path("fixtures", "reco27.rds"))
# # LOAD FIT
# fit_sCd2 <- readRDS(test_path("fixtures", "fit_sCd2.rds"))
# fit_rCd2 <- readRDS(test_path("fixtures", "fit_rCd2.rds"))
# fit_gCdd <- readRDS(test_path("fixtures", "fit_gCdd.rds"))
# fit_gCddc <- readRDS(test_path("fixtures", "fit_gCddc.rds"))
#
# fit_g27n <- readRDS(test_path("fixtures", "fit_g27n.rds"))
# fit_g27g <- readRDS(test_path("fixtures", "fit_g27g.rds"))
# fit_g27nt <- readRDS(test_path("fixtures", "fit_g27nt.rds"))
# fit_g27nc <- readRDS(test_path("fixtures", "fit_g27nc.rds"))
# fit_g27gc <- readRDS(test_path("fixtures", "fit_g27gc.rds"))
# fit_g27ntc <- readRDS(test_path("fixtures", "fit_g27ntc.rds"))