Description Usage Arguments Author(s) Examples
View source: R/setNodeModels.R
Set node properties using pre-defined model objects. Model
objects may be imported from other programs, but need to be valid
model objects with the additional restriction that the responses and
independent variables must be named nodes in the network. This will
NOT create a network from a list of models. For that, see
HydeNetwork
1 | setNodeModels(network, ...)
|
network |
A |
... |
Model objects to be incorporated into |
Jarrod Dalton and Benjamin Nutter
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | data(PE, package="HydeNet")
Net <- HydeNetwork(~ wells +
pe | wells +
d.dimer | pregnant*pe +
angio | pe +
treat | d.dimer*angio +
death | pe*treat)
print(Net)
g1 <- lm(wells ~ 1, data=PE)
g2 <- glm(pe ~ wells, data=PE, family="binomial")
g3 <- lm(d.dimer ~ pe + pregnant, data=PE)
g4 <- xtabs(~ pregnant, data=PE)
g5 <- glm(angio ~ pe, data=PE, family="binomial")
g6 <- glm(treat ~ d.dimer + angio, data=PE, family="binomial")
g7 <- glm(death ~ pe + treat, data=PE, family="binomial")
Net2 <- setNodeModels(Net, g1, g2, g3, g4, g5, g6, g7)
print(Net)
writeNetworkModel(Net, pretty=TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.