# NOT RUN {
data_toy <- cbind(c(rnorm(100, -3, 1), rnorm(100, 3, 1)),
c(rnorm(100, -3, 1), rnorm(100, 3, 1)))
grid <- expand.grid(seq(-7, 7, length.out = 50),
seq(-7, 7, length.out = 50))
est_model <- PYdensity(y = data_toy, mcmc = list(niter = 200, nburn = 100),
output = list(grid = grid))
coda_mcmc <- BNPdens2coda(est_model)
class(coda_mcmc)
# }
Run the code above in your browser using DataLab