Overwrites the file at path
with a built-in example
JAGS model file.
Usage
tar_jags_example_file(path = tempfile(pattern = "", fileext = ".jags"))
Examples
path <- tempfile(pattern = "", fileext = ".jags")
tar_jags_example_file(path = path)
writeLines(readLines(path))
#> model {
#> for (i in 1:n) {
#> y[i] ~ dnorm(x[i] * beta, 1)
#> }
#> beta ~ dnorm(0, 1)
#> }