runMCMC.multiChain: Perform Robust MCMC Algorithms for GLSM in Parallel

Description Usage Arguments Details Value Author(s) See Also Examples

View source: R/runMCMC.R

Description

This function performs robust MCMC algorithms in a parallel way for generalized linear spatial models and generates posterior samples for latent variables and hyper-parameters.

Usage

1
2
3
4
5
6
7
runMCMC.multiChain(Y, L = 0, loc, X = NULL, run = 200, run.S = 1, 
        rho.family = "rhoPowerExp", Y.family = "Poisson", 
        priorSigma = "Halft", parSigma = c(1, 1), ifkappa = 0, 
        scales = c(0.5, 1.65^2 + 0.8, 0.8, 0.7, 0.15), 
        phi.bound = c(0.005, 1), initials = list(c(1), 1.5, 0.2, 1), 
        MCMCinput = NULL, partial = FALSE, famT = 1, 
        n.chn = 2, n.cores = getOption("cores"))

Arguments

Y

a vector of length n which indicates the response variables

L

a vector of length n; it indicates the time duration during which the Poisson counts are accumulated, or the total number of trials for Binomial response; if 0 is found in the vector, 1 will be used to replace all the values in the vector

loc

a n \times 2 matrix which indicates the coordinates of locations

X

a n \times p covariate matrix; the default value "NULL" indicates no covariate

run

the number of iterations

run.S

the number of internal iterations for latern variables

rho.family

take the value of "rhoPowerExp", "rhoMatern", or "rhoSph" which indicates the powered exponential, Matern, or Spherical correlation function is used

Y.family

take the value of "Poisson" or "Binomial" which indicates Poisson or Binomial distribution for response variables

priorSigma

the prior distribution for σ, the options include "Halft" (positive-truncated t distribution), "InvGamma" (inverse gamma distribution), and "Reciprocal" (reciprocal distribution)

parSigma

the parameters for the prior distribution of σ: when priorSigma = "Halft" the first parameter is scale and the second is degree of freedom; when priorSigma = "InvGamma" the first parameter is shape and the second is scale; when priorSigma = "Reciprocal" both parameters are ignored

ifkappa

take zero or non-zero value which indicates whether κ should be sampled

scales

a vector which indicates the tuning parameters for (S, β, σ,φ,κ) respectively

phi.bound

the upper and lower bound for φ

initials

a list which indicates the initial values for (β, σ,φ,κ) respectively

MCMCinput

a list of alternative settings

partial

a logical input which indicats whether partial posterior sampling should be used; only works for Y.family = "Poisson"

famT

take the value of 1, 2, or 3 which indicates the type of partial posterior sampling: 1 means "mean" diagnostic statistic is used, 2 means "maximum", and 3 means "minimum"; ignored if partial=FALSE

n.chn

the number of Markov chain sets that will be generated in parallel

n.cores

the number of CPUs that will be used to generate parallel Markov chains

Details

Essentially, this function runs runMCMC function simultaneously on different CPUs (if there are more than one CPU available) with different initial values. In the case the number of available CPUs is less than "n.chn", Markov chains will be put in a queue.

This function performs parallel computing with the help of {multicore} package. Be aware that {multicore} package currently is not available in Windows (so use runMCMC.sf instead).

Value

A list of length "n.chn" containing the result of each Markov chain. Each element is a list with elements:

S.posterior

a n \times run matrix containing the posterior samples for latent variables

m.posterior

a (p+1) \times run matrix (in case of p covariate variables) or a vector with length "run" (no covariate case), containing the posterior samples for β

s.posterior

a vector with length "run" containing the posterior samples for σ

a.posterior

a vector with length "run" containing the posterior samples for φ

k.posterior

a vector with length "run" containing the posterior samples for κ in the case that "ifkappa" is set to non-zero value

AccRate

a vector which indicates the acceptance rates

Author(s)

Liang Jing [email protected]

See Also

MCMCinput, runMCMC, runMCMC.sf.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
## Not run: 
  require(multicore)
  data(datWeed)
  Y <- Weed[,3]
  loc <- unifLoc(Weed[,1:2])
  L <- rep(1, length(Y))
  input.Weed <- MCMCinput( run=1000, run.S=10, rho.family="rhoPowerExp", 
          Y.family = "Poisson", 
          priorSigma = "Halft", parSigma = c(1, 1), 
          ifkappa=0,
          scales=c(0.5, 3.5, 0.9, 0.6, 0.5), 
          phi.bound=c(0.005, 1), 
          initials=list(c(-1), 1, 0.1, 1) )
  res.prl <- runMCMC.multiChain(Y, L=L, loc=loc, X=NULL, 
          MCMCinput = input.Weed, n.chn = 4, n.cores = 4)          

## End(Not run)

geoCount documentation built on May 31, 2017, 3:49 a.m.