experiments

LandSciTech · Aug 29, 2024 · b0bda74 · b0bda74
1 parent 7f91d20
commit b0bda74
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 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.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
@@ -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
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 = 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)