print.HydeSim: Print a Hyde Simulated Distribution Object

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

Description

Prints a brief description of a HydeSim object.

Usage

## S3 method for class 'HydeSim'
print(x, ...)

Arguments

x	a HydeSim object
...	additional arguments to be passed to print methods. Currently none in use.

Details

Prints the number of posterior distributions, chains, and iterations, as well as the observed values.

Author(s)

Jarrod Dalton and Benjamin Nutter

Examples

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

Net <- setDecisionNodes(Net, treat)  
                 
compiledNet <- compileJagsModel(Net, n.chains=5)

#* Generate the posterior distribution for the model (but not the 
#* decision model)
Posterior <- HydeSim(compiledNet, 
                           variable.names = c("d.dimer", "death"), 
                           n.iter = 1000)
Posterior

#* Generate the posterior for the decision model
Decision <- compileDecisionModel(Net, n.chains=5)
Posterior_decision <- HydeSim(Decision, 
                                    variable.names = c("d.dimer", "death"), 
                                    n.iter = 1000)

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