tests/testthat/test-nocran05_ppc.R

In morseTKTD: Bayesian Inference of TKTD Models

test_that("PPC", {
    # LONG TO COMPUTE AND/OR INPUT FILE NOT STORED FOR CRAN
    # 'skip_on_cran: files not in fixtures because of size > 1MB'
    testthat::skip_on_cran()
    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"))
    
    cPRZ_ITppc <- ppc(cPRZ_ITfit)
    cPRZ_SDppc <- ppc(cPRZ_SDfit)
    vPRZ_ITppc <- ppc(vPRZ_ITfit)
    vPRZ_SDppc <- ppc(vPRZ_SDfit)
    
    plot(cPRZ_ITppc)
    plot(cPRZ_SDppc)
    plot(vPRZ_ITppc)
    plot(vPRZ_SDppc)
    
})