# NOT RUN {
# Design the model in directed acyclic graph
model <- bayesvl()
model <- bvl_addNode(model, "Lie", "binom")
model <- bvl_addNode(model, "B", "binom")
model <- bvl_addNode(model, "C", "binom")
model <- bvl_addNode(model, "T", "binom")
model <- bvl_addArc(model, "B", "Lie", "slope")
model <- bvl_addArc(model, "C", "Lie", "slope")
model <- bvl_addArc(model, "T", "Lie", "slope")
# Generate the Stan model's code
model_string <- bvl_model2Stan(model)
cat(model_string)
# Show priors in generated Stan model
bvl_stanPriors(model)
# }
Run the code above in your browser using DataLab