HydeNet (version 0.10.11)

print.HydeSim: Print a Hyde Simulated Distribution Object

Description

Prints a brief description of a HydeSim object.

Usage

# S3 method for 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.

Examples

# NOT RUN {
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)

# }