Generate JAGS Code for a Network's Model
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.
writeNetworkModel(network, pretty = FALSE)
network |
an object of class |
pretty |
Logical. When |
Jarrod Dalton and Benjamin Nutter
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.