if (FALSE) {
library(nimble)
# Generic nimble example
code <- nimbleCode({
mu ~ dnorm(0, 1)
x ~ dnorm(mu, 1)
})
constants <- list()
dummy_data <- list(x = 0)
dummy_inits <- list(mu = 0)
out <- build_ivd_model(
code = code,
constants = constants,
dummy_data = dummy_data,
dummy_inits = dummy_inits,
useWAIC = FALSE
)
str(out)
}
Run the code above in your browser using DataLab