racusum_limit_dpcl {cusum} | R Documentation |
Set DPCL for risk-adjusted Bernoulli CUSUM Charts
racusum_limit_dpcl(patient_risks, N = 1e+05, odds_multiplier = 2, alpha, seed = NULL)
patient_risks |
Double. Vector of patient risk scores (individual risk of adverse event) |
N |
Integer. Number of simulation runs |
odds_multiplier |
Double. Odds multiplier of adverse event under the alternative hypothesis (<1 looks for decreases) |
alpha |
Double. False signal probability of RA-CUSUM |
seed |
Integer. Seed for RNG |
Returns vector of dynamic control limit for signalling performance change (double)
Zhang, Xiang & Woodall, William. (2016). Dynamic Probability Control Limits for Lower and Two-Sided Risk-Adjusted Bernoulli CUSUM Charts. Quality and Reliability Engineering International. 10.1002/qre.2044.
patient_risks <- runif(100, min = 0.1, max = 0.8) dpcl <- racusum_limit_dpcl( patient_risks = patient_risks, N = 1000, odds_multiplier = 2, alpha = 0.05, seed = 32423 ) plot(dpcl, type = "l")