experiments continued

LandSciTech · Aug 28, 2024 · 7f91d20 · 7f91d20
1 parent 12de6ab
commit 7f91d20
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
diff --git 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)