tests/testthat/test_user_priors.R

In artemis: Analysis and Simulation of Environmental DNA Experiments

context("User Priors")

test_that("User priors: lm", {
    # Very basic test - need more thorough tests
    # no priors
    ans = eDNA_lm(Cq ~ Distance_m, eDNA_data,
                  std_curve_alpha = 21.2, std_curve_beta = -1.5)

    expect_is(ans, "eDNA_model_lm")
    # Priors
    ans2 = eDNA_lm(Cq ~ Distance_m, eDNA_data,
                   std_curve_alpha = 21.2, std_curve_beta = -1.5,
                   prior_intercept = normal(-12, 10),
                   priors = normal(0,1))
    
    expect_is(ans2, "eDNA_model_lm")
    
})