R/bbsBayes-package.R

In bbsBayes: Hierarchical Bayesian Analysis of North American BBS Data

.onLoad <- function(libname, pkgname)
{
  assign("maps",
         list(bbs_usgs = "BBS_USGS_strata",
              bbs_cws = "BBS_CWS_strata",
              state = "BBS_ProvState_strata",
              bcr = "BBS_BCR_strata",
              latlong = "BBS_LatLong_strata"),
         parent.env(environment()))

  assign("models",
         list(slope = "slope.jags",
              firstdiff = "first-difference.jags",
              gam = "gam.jags",
              gamye = "gam-ye.jags",
              slope_heavy = "slope.t.jags",
              firstdiff_heavy = "first-difference.t.jags",
              gam_heavy = "gam.t.jags",
              gamye_heavy = "gam-ye.t.jags"),
         parent.env(environment()))

  assign("strata",
         list(bbs_usgs = "strat.csv",
              bbs_cws = "stratcan.csv",
              state = "stateprov.csv",
              bcr = "bcr.csv",
              latlong = "db.csv"),
         parent.env(environment()))

}