decimals not truncated to 5 in writeNetworkModel(pretty=TRUE) - Githubissues

nutterb / HydeNet

Hybrid Decision Networks in R

Other

23 stars 3 forks source link

decimals not truncated to 5 in writeNetworkModel(pretty=TRUE) #25

Closed jdutch27 closed 9 years ago

jdutch27 commented 9 years ago

This is a small issue - somehow the parameters for node 'wells' were not printed with 5 digits. no biggie...

data(PE, package='HydeNet') autoNet <- HydeNetwork(~ wells

pe | wells
d.dimer | pregnant_pe
angio | pe
treat | d.dimer_angio
death | pe*treat, data = PE) writeNetworkModel(autoNet, pretty=TRUE)
model{

wells ~ dnorm(3.7941999999999, 0.630504251834359)

pe ~ dbern(ilogit(-3.90355 + 0.5757 * wells))

d.dimer ~ dnorm(210.24251 + 68.37938 * (pe == 2) + 29.29496 * (pregnant == 2), 0.0334725036145318)

pi.pregnant[1] <- 0.9014; pi.pregnant[2] <- 0.0986

pregnant ~ dcat(pi.pregnant)

angio ~ dbern(ilogit(-2.22585 + 3.28411 * (pe == 2)))

treat ~ dbern(ilogit(-5.89316 + 0.01994 * d.dimer + 1.73354 * (angio == 2)))

death ~ dbern(ilogit(-4.18763 + 5.48082 * (pe == 2) + -1.93576 * (treat == 2)))

}

nutterb commented 9 years ago

Fixed