R/zzz.R

In donaldmusgrove/ngspatial: Fitting the Centered Autologistic and Sparse Spatial Generalized Linear Mixed Models for Areal Data

######################################################################
#
# zzz.R
#
# Written by John Hughes <hughesj@umn.edu>.
#
# Last Modified 06/30/2016
# Licensed under the GNU General Public License version 2 (June, 1991)
#
# Part of the R/ngspatial package
#
# .onLoad is run when the package is loaded with library(ngspatial)
#
######################################################################

#' @import batchmeans Rcpp utils


### See section 3.1.2 of http://dirk.eddelbuettel.com/code/rcpp/Rcpp-modules.pdf
### For some unknown reason, loadModule("moduleName",what=TRUE) does not work
moller         = Module("moller")
perfsampler    = Module("perfsampler")
msglmmutil     = Module("msglmmutil")
msglmmBinomial = Module("msglmmBinomial")
msglmmPoisson  = Module("msglmmPoisson")
msglmmPoissonH = Module("msglmmPoissonH")
msglmmHurdle   = Module("msglmmHurdle")
msglmmGaussian = Module("msglmmGaussian")
.onLoad = function(libname, pkgname)
{
  #loadRcppModules(direct = FALSE)
}


.onAttach = function(libname, pkgname)
{
    temp = packageDescription("ngspatial")
    msg = paste(temp$Package, ": ", temp$Title, "\n", "Version ", temp$Version,
                " created on ", temp$Date, ".\n", sep = "")
    msg = paste(msg, "copyright (c) 2013-16, John Hughes, University of Minnesota\n",
"                       Xiaohui Cui, University of Minnesota\n",
"                       Donald Musgrove, University of Minnesota\n",
                sep = "")
    msg = paste(msg, 'For citation information, type citation("ngspatial").\n', sep = "")
    msg = paste(msg, 'Type help(package = ngspatial) to get started.\n', sep = "")
    packageStartupMessage(msg)
}