seq_node_monitor {bnmonitor} | R Documentation |
Sequential marginal and conditional node monitors for a vertex of a Bayesian network.
seq_marg_monitor(dag, df, node.name) seq_cond_monitor(dag, df, node.name)
dag |
an object of class |
df |
a base R style dataframe |
node.name |
node over which to compute the monitor |
Consider a Bayesian network over variables Y_1,…,Y_m and suppose a dataset (\boldsymbol{y}_1,…,\boldsymbol{y}_n) has been observed, where \boldsymbol{y}_i=(y_{i1},…,y_{im}) and y_{ij} is the i-th observation of the j-th variable. Let p_i denote the marginal density of Y_j after the first i-1 observations have been processed. Define
E_i = ∑_{k=1}^Kp_i(d_k)\log(p_i(d_k)),
V_i = ∑_{k=1}^K p_i(d_k)\log^2(p_i(d_k))-E_i^2,
where (d_1,…,d_K) are the possible values of Y_j. The sequential marginal node monitor for the vertex Y_j is defined as
Z_{ij}=\frac{-∑_{k=1}^i\log(p_k(y_{kj}))-∑_{k=1}^i E_k}{√{∑_{k=1}^iV_k}}.
Values of Z_{ij} such that |Z_{ij}|> 1.96 can give an indication of a poor model fit for the vertex Y_j after the first i-1 observations have been processed.
The sequential conditional node monitor for the vertex Y_j is defined as
Z_{ij}=\frac{-∑_{k=1}^i\log(p_k(y_{kj}|y_{k1},…,y_{k(j-1)},y_{k(j+1)},…,y_{km}))-∑_{k=1}^i E_k}{√{∑_{k=1}^iV_k}},
where E_k and V_k are computed with respect to p_k(y_{kj}|y_{k1},…,y_{k(j-1)},y_{k(j+1)},…,y_{km}). Again, values of Z_{ij} such that |Z_{ij}|> 1.96 can give an indication of a poor model fit for the vertex Y_j.
A vector including the scores Z_{ij}, either marginal or conditional.
Cowell, R. G., Dawid, P., Lauritzen, S. L., & Spiegelhalter, D. J. (2006). Probabilistic networks and expert systems: Exact computational methods for Bayesian networks. Springer Science & Business Media.
Cowell, R. G., Verrall, R. J., & Yoon, Y. K. (2007). Modeling operational risk with Bayesian networks. Journal of Risk and Insurance, 74(4), 795-827.
influential_obs
, node_monitor
, seq_node_monitor
, seq_pa_ch_monitor
seq_marg_monitor(chds_bn, chds[1:100,], "Events") seq_marg_monitor(chds_bn, chds[1:100,], "Admission")