# NOT RUN {
data(PE, package="HydeNet")
Net <- HydeNetwork(~ wells +
pe | wells +
d.dimer | pregnant*pe +
angio | pe +
treat | d.dimer*angio +
death | pe*treat)
plot(Net)
Net <- update(Net, . ~ . - pregnant)
plot(Net)
# }
Run the code above in your browser using DataLab