R/write.model.jags.R

write.model.jags <-
  function (model, intitled, Data, jointCureModel, param, one.RE) {
    model <- replace.inprod(body(model), Data, jointCureModel, param, one.RE)
    writeLines(model, intitled)
  }
AntoineBbi/JMcuR documentation built on Oct. 1, 2020, 1:31 a.m.