From 7f91d20ab26f7e79b7fc1fcfaabfe8a5c3958a2c Mon Sep 17 00:00:00 2001 From: Hughes Date: Wed, 28 Aug 2024 19:34:52 -0400 Subject: [PATCH] experiments continued --- R/getPriors.R | 2 +- man/getPriors.Rd | 2 +- tests/testthat/test-caribouBayesianPM.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/getPriors.R b/R/getPriors.R index 97a5c95..f5f96a2 100644 --- a/R/getPriors.R +++ b/R/getPriors.R @@ -85,7 +85,7 @@ getPriors <- function(modList = NULL, sSigmaMax = 0.18, rIntSE = 0.25, rSigmaMin =0.00001, - rSigmaMax = 0.8, + rSigmaMax = 0.45, qMin=0, qMax =0.6, uMin = 0, uMax = 0.2, zMin = 0, zMax = 0.2, diff --git a/man/getPriors.Rd b/man/getPriors.Rd index 21c0b02..c98517e 100644 --- a/man/getPriors.Rd +++ b/man/getPriors.Rd @@ -16,7 +16,7 @@ getPriors( sSigmaMax = 0.18, rIntSE = 0.25, rSigmaMin = 1e-05, - rSigmaMax = 0.8, + rSigmaMax = 0.45, qMin = 0, qMax = 0.6, uMin = 0, diff --git a/tests/testthat/test-caribouBayesianPM.R b/tests/testthat/test-caribouBayesianPM.R index 776cf67..20070cf 100644 --- a/tests/testthat/test-caribouBayesianPM.R +++ b/tests/testthat/test-caribouBayesianPM.R @@ -246,7 +246,7 @@ test_that("results match expected", { manyObs <- doScn(nCollar = 2000, rQuantile = 0.9, sQuantile = 0.9) doPlot(manyObs, title = "2000 collars") - fewCollarObs <- doScn(nCollar = 0, rQuantile = 0.9, sQuantile = 0.9) + fewCollarObs <- doScn(nCollar = 5, rQuantile = 0.9, sQuantile = 0.9) doPlot(fewCollarObs, title = "5 collars") difMany <- calcDif(manyObs$obs.all)