# Provide a single block of code directly
code <- nimbleCode({
x ~ dnorm(mu, sd = 1)
mu ~ dnorm(0, sd = prior_sd)
})
code_new <- nimbleCode({
prior_sd ~ dhalfflat()
})
# Combine multiple previously saved code objects
code2 <- nimbleCode(code, code_new)
# Combine code and previously saved code objects
code3 <- nimbleCode({
y ~ dnorm(mu, sd = 1)
}, code, code_new)
Run the code above in your browser using DataLab