print.HydeSim: Print a Hyde Simulated Distribution Object

Description Usage Arguments Details Author(s) Examples

View source: R/print.HydePosterior.R

Description

Prints a brief description of a HydeSim object.

Usage

1
2
## 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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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)

HydeNet documentation built on July 8, 2020, 5:15 p.m.