vlad (version 0.1.0)

racusum_arl_h_sim: Compute alarm threshold of RA-CUSUM control charts using simulation

Description

Compute alarm threshold of RA-CUSUM control charts using simulation.

Usage

racusum_arl_h_sim(L0, df, coeff, R0 = 1, RA = 2, m = 100, yemp = TRUE,
  nc = 1, verbose = FALSE)

Arguments

L0

double. Prespecified in-control Average Run Length.

df

DataFrame. First column are Parsonnet Score values within a range of zero to 100 representing the preoperative patient risk. The second column are binary (0/1) outcome values of each operation.

coeff

NumericVector. Estimated coefficients \(\alpha\) and \(\beta\) from the binary logistic regression model.

R0

double. Odds ratio of death under the null hypotheses.

RA

double. Odds ratio of death under the alternative hypotheses. Detecting deterioration in performance with increased mortality risk by doubling the odds Ratio RA=2. Detecting improvement in performance with decreased mortality risk by halving the odds ratio of death RA=1/2.

m

integer. Number of simulation runs.

yemp

boolean. If TRUE, use emirical outcome values, else use model.

nc

integer. Number of cores used for parallel processing.

verbose

boolean. If TRUE verbose output is included, if FALSE a quiet calculation of h is done.

Value

Returns a single value which is the control limit h for a given in-control ARL.

Details

The function racusum_arl_h_sim determines the control limit for given in-control ARL (L0) by applying a multi-stage search procedure which includes secant rule and the parallel version of racusum_arl_sim using mclapply.

Examples

# NOT RUN {
library("vlad")
library("spcadjust")
data("cardiacsurgery")
cardiacsurgery <- dplyr::mutate(cardiacsurgery, phase=factor(ifelse(date < 2*365, "I", "II")))
S2 <- subset(cardiacsurgery, c(surgeon==2), c("phase", "Parsonnet", "status"))
# subset phase I (In-control) of surgeons 2
S2I <- subset(S2, c(phase=="I"), c("Parsonnet", "status"))
# estimate coefficients from logit model
coeff1 <- round(coef(glm(status~Parsonnet, data=S2I, family="binomial")), 3)

racusum_arl_h_sim(L0=740, df=S2I, coeff=coeff1, m=10^2, nc=4)
# }