writeNetworkModel: Generate JAGS Code for a Network's Model
In HydeNet: Hybrid Bayesian Networks Using R and JAGS

Description Usage Arguments Author(s) See Also Examples

Based on the parameters given to a network, the code for each node is generated and all of the node models are pasted into a single JAGS model script.

1	writeNetworkModel(network, pretty = FALSE)

`network`	an object of class `HydeNetwork`
`pretty`	Logical. When `TRUE`, the model is printed to the console using the `cat` function (useful if you wish to copy and paste the code for manual editing). Otherwise, it is returned as a character string.

Jarrod Dalton and Benjamin Nutter

writeJagsModel, writeJagsFormula

data(PE, package='HydeNet')
Net <- HydeNetwork(~ wells + 
                     pe | wells + 
                     d.dimer | pregnant*pe + 
                     angio | pe + 
                     treat | d.dimer*angio + 
                     death | pe*treat,
                     data = PE)

#* Default printing
writeNetworkModel(Net)

#* Something a little easier on the eyes.
writeNetworkModel(Net, pretty=TRUE)