## define vectorized model code
code <- nimbleCode({
p ~ dunif(0,1)
p_vector[1:J] <- p
y[1:J] ~ dbinom_vector(size = trials[1:J],
prob = p_vector[1:J])
})
## simulate binomial data
J <- 1000
trials <- sample(x = 10, size = J, replace = TRUE)
y <- rbinom_vector(J, size = trials, prob = 0.21)
constants <- list(J = J, trials = trials)
data <- list(y = y)
inits <- list(p = 0.5)
## create NIMBLE model object
Rmodel <- nimbleModel(code, constants, data, inits)
## use model object for MCMC, etc.
Run the code above in your browser using DataLab