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