In nutterb/HydeNet: Hybrid Bayesian Networks Using R and JAGS

library(HydeNet)

HydeNetPackage <- HydeNetwork(
  ~ list_input + 
    formula_input + 
    HydeNetwork | list_input * formula_input * modelToNode + 
    NETWORK | HydeNetwork * setNode * modelToNode + 
    setNode | writeJagsModel * vectorProbs +
    modelToNode | setNodeModels * list_input + 
    plot.HydeNetwork | NETWORK + 
    print.HydeNetwork | NETWORK + 
    compileJagsModel | NETWORK * writeNetworkModel + 
    setDecisionNodes | NETWORK + 
    setUtilityNodes | NETWORK + 
    updateHydeNetwork | NETWORK * rewriteHydeFormula + 
    compileDecisionModel | NETWORK * compileJagsModel * writeNetworkModel + 
    COMPILED_NETWORK | compileJagsModel * compileDecisionModel + 
    writeNetworkModel | NETWORK * writeJagsModel+ 
    writeJagsModel | rToJags * writeJagsFormula + 
    writeJagsFormula | lm_input * glm_input * nnet_input * xtabs_input +
    rToJags | lm_input * glm_input * nnet_input * xtabs_input + 
    lm_input + 
    glm_input + 
    nnet_input + 
    xtabs_input +
    HydePosterior | COMPILED_NETWORK + 
    POSTERIOR | HydePosterior + 
    printHydePosterior | POSTERIOR + 
    bindPosterior | POSTERIOR + 
    PolicyMatrix)

attrs <- list(node=list(fixedsize=FALSE))
plot(HydeNetPackage, attrs=attrs)

library(HydeNet)
data(PE, package="HydeNet")
Net <- HydeNetwork(~ wells + 
                     pe | wells + 
                     d.dimer | pregnant*pe + 
                     angio | pe + 
                     treat | d.dimer*angio + 
                     death | pe*treat) 
plot(Net)

nutterb/HydeNet documentation built on July 13, 2020, 5:21 p.m.