## Not run:
# Ypred <- predY(res.m, loc, locp, X=loc, Xp=locp, k=1,
# rho.family = "rhoPowerExp", Y.family = "Poisson")
# # require(snowfall)
# # Ypred <- predY(res.m, loc, locp, X=loc, Xp=locp,
# # parallel="snowfall", n.cores = 4)
# Ypred.avg <- rowMeans(Ypred$Y); EYpred.avg <- rowMeans(exp(Ypred$latent))
# ## End(Not run)
Run the code above in your browser using DataLab