write.model.jags <-
function (model, intitled, Data, jointCureModel, param, one.RE) {
model <- replace.inprod(body(model), Data, jointCureModel, param, one.RE)
writeLines(model, intitled)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.