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)