diff --git a/R/getPriors.R b/R/getPriors.R
index f5f96a2..ddde1d6 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.45,
+                      rSigmaMax = 0.79,
                       qMin=0, qMax =0.6, 
                       uMin = 0, uMax = 0.2, 
                       zMin = 0, zMax = 0.2, 
diff --git a/inst/templates/JAGS_template.txt b/inst/templates/JAGS_template.txt
index 5f2c43a..9a980de 100644
--- a/inst/templates/JAGS_template.txt
+++ b/inst/templates/JAGS_template.txt
@@ -21,7 +21,7 @@ for(k in 1:nYears){
 #Recruitment
 for(k in 1:nYears){
     fixedEffect[k] <- l.R + anthro[k]*beta.Rec.anthro + fire[k]*beta.Rec.fire
-	  sig.R[k]<-cv.R*fixedEffect[k]
+	  sig.R[k]<-cv.R*fixedEffect[k]^2
 	  tau.R[k]<-pow(sig.R[k], -2)
 		epsilon.R[k]~dnorm(0,tau.R[k])
 		log(R[k]) <-  fixedEffect[k]+ epsilon.R[k]
diff --git a/man/getPriors.Rd b/man/getPriors.Rd
index c98517e..9219134 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.45,
+  rSigmaMax = 0.79,
   qMin = 0,
   qMax = 0.6,
   uMin = 0,
diff --git a/tests/testthat/test-caribouBayesianPM.R b/tests/testthat/test-caribouBayesianPM.R
index 20070cf..776cf67 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 = 5, rQuantile = 0.9, sQuantile = 0.9)
+  fewCollarObs <- doScn(nCollar = 0, rQuantile = 0.9, sQuantile = 0.9)
   doPlot(fewCollarObs, title = "5 collars")
   
   difMany <- calcDif(manyObs$obs.all)