# NOT RUN {
data(PE, package="HydeNet")
Net <- HydeNetwork(~ wells +
pe | wells +
d.dimer | pregnant*pe +
angio | pe +
treat | d.dimer*angio +
death | pe*treat)
print(Net)
print(Net, d.dimer)
Net <- setNode(Net, d.dimer,
nodeType='dnorm', mean=fromData(), sd=fromData(),
nodeFormula = d.dimer ~ pregnant + pe,
nodeFitter='lm')
print(Net, d.dimer)
# }
Run the code above in your browser using DataLab