## Not run:
# # Estimate parameters from posterior samples
# Yrep.eb <- repYeb(N.sim=2000, loc, L, res.m, est = "mode")
# # Pre-determined parameters (also an efficient way to simulate massive data sets)
# Yrep.eb <- repYeb(N.sim=2000, loc, L, beta = 5, sigma = 1, phi = 0.1,
# k = 1)
# ## End(Not run)
Run the code above in your browser using DataLab