diff options
author | Ken Kellner <ken@kenkellner.com> | 2022-04-11 15:24:00 -0400 |
---|---|---|
committer | Ken Kellner <ken@kenkellner.com> | 2022-04-11 17:08:10 -0400 |
commit | 63b3cb1f7f46b8993275ada100b4ce402fdf7b13 (patch) | |
tree | b7f7129d3e670d87b59669058686fe05dec5c780 | |
parent | d6347c98f1a0e62f33d7b179fac68402de3c10df (diff) |
Fix issue with stocc in vignette
-rw-r--r-- | vignettes/spatial-models.Rmd.orig | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vignettes/spatial-models.Rmd.orig b/vignettes/spatial-models.Rmd.orig index d467b30..1382c7a 100644 --- a/vignettes/spatial-models.Rmd.orig +++ b/vignettes/spatial-models.Rmd.orig @@ -300,7 +300,7 @@ names <- list( fit_stocc <- spatial.occupancy( detection.model = ~ detCov1 + detCov2, occupancy.model = ~ habCov1 + habCov2, - spatial.model = list(model="rsr", threshold=1, moran.cut=0.1*nrow(habData)), + spatial.model = list(model="rsr", threshold=1.01, moran.cut=0.1*nrow(habData)), so.data = make.so.data(visitData, habData, names), prior = list(a.tau=0.5, b.tau=0.00005, Q.b=0.1, Q.g=0.1), control = list(burnin=1000/5, iter=4000/5, thin=5) @@ -320,7 +320,7 @@ if(file.exists("fit_stocc.Rds")){ nul <- capture.output(fit_stocc <- spatial.occupancy( detection.model = ~ detCov1 + detCov2, occupancy.model = ~ habCov1 + habCov2, - spatial.model = list(model="rsr", threshold=1, moran.cut=0.1*nrow(habData)), + spatial.model = list(model="rsr", threshold=1.01, moran.cut=0.1*nrow(habData)), so.data = make.so.data(visitData, habData, names), prior = list(a.tau=0.5, b.tau=0.00005, Q.b=0.1, Q.g=0.1), control = list(burnin=1000/5, iter=4000/5, thin=5) |