# NOT RUN {
Net <- HydeNetwork(~ wells +
pe | wells +
d.dimer | pregnant*pe +
angio | pe +
treat | d.dimer*angio +
death | pe*treat,
data = PE)
factorFormula(form = payoff ~ (death == 'No') + (pe == 'Yes'),
network = Net)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab