## Not run:
# res.prl <- runMCMC.multiChain(Y, L=0, loc=loc, X=loc,
# MCMCinput = input, n.chn = 5)
# res.m.prl <- lapply(res.prl, cutChain, chain.ind=1:4, burnin=200, thining=20)
# res.mix <- mixChain(res.m.prl)
# ## End(Not run)
Run the code above in your browser using DataLab