View source: R/relative_mortality.R
rm_bin_summary | R Documentation |
Calculates a bin-level summary for the Relative Mortality Metric (RMM) from Napoli et al. (2017) by grouping data into bins based on survival probabilities (Ps) and summarizing outcomes within each bin. This function returns statistics such as total alive, total dead, estimated mortality, anticipated mortality, and confidence intervals for each bin. For more information on the methods used in this function, see as well Schroeder et al. (2019), and Kassar et al. (2016).
The Relative Mortality Metric (RMM) quantifies the performance of a center in comparison to the anticipated mortality based on the TRISS national benchmark. The RMM measures the difference between observed and expected mortality, with a range from -1 to 1.
An RMM of 0 indicates that the observed mortality aligns with the expected national benchmark across all acuity levels.
An RMM greater than 0 indicates better-than-expected performance, where the center is outperforming the national benchmark.
An RMM less than 0 indicates under-performance, where the center’s observed mortality is higher than the expected benchmark.
This metric helps assess how a center's mortality compares to the national
standards, guiding quality improvement efforts.rm_bin_summary()
utilizes
bootstrap sampling to calculate the confidence intervals via the standard
error method.
rm_bin_summary(
data,
Ps_col,
outcome_col,
group_vars = NULL,
n_samples = 100,
Divisor1 = 5,
Divisor2 = 5,
Threshold_1 = 0.9,
Threshold_2 = 0.99,
seed = NULL
)
data |
A data frame or tibble containing the data. |
Ps_col |
The name of the column containing the survival probabilities (Ps). Should be numeric on a scale from 0 to 1. |
outcome_col |
The name of the column containing the outcome data. It
should be binary, with values indicating patient survival. A value of |
group_vars |
Optional character vector specifying grouping variables for
stratified analysis. If |
n_samples |
A numeric value indicating the number of bootstrap samples to take from the data source. |
Divisor1 |
A divisor used for binning the survival probabilities (default is 5). |
Divisor2 |
A second divisor used for binning the survival probabilities (default is 5). |
Threshold_1 |
The first threshold for dividing the survival probabilities (default is 0.9). |
Threshold_2 |
The second threshold for dividing the survival probabilities (default is 0.99). |
seed |
Optional numeric value to set a random seed for reproducibility.
If |
Like other statistical computing functions, rm_bin_summary()
is happiest
without missing data. It is best to pass complete probability of survival
and outcome data to the function for optimal performance. With smaller
datasets, this is especially helpful. However, rm_bin_summary()
will
handle NA
values and throw a warning about missing probability of survival
values, if any exist in Ps_col
.
Due to the use of bootstrap sampling within the function, users should
consider setting the random number seed within rm_bin_summary()
using the
seed
argument for reproducibility.
A tibble containing bin-level statistics including:
bin_number
: The bin to which each record was assigned.
TA_b
: Total alive in each bin (number of patients who survived).
TD_b
: Total dead in each bin (number of patients who did not survive).
N_b
: Total number of patients in each bin.
EM_b
: Estimated mortality rate for each bin (TD_b / (TA_b + TD_b)).
AntiS_b
: The anticipated survival rate for each bin.
AntiM_b
: The anticipated mortality rate for each bin.
bin_start
: The lower bound of the survival probability range for each
bin.
bin_end
: The upper bound of the survival probability range for each
bin.
midpoint
: The midpoint of the bin range (calculated as
(bin_start + bin_end) / 2).
R_b
: The width of each bin (bin_end - bin_start).
population_RMM_LL
: The lower bound of the 95% confidence interval for
the population RMM.
population_RMM
: The final calculated Relative Mortality Metric for the
population existing in data
.
population_RMM_UL
: The upper bound of the 95% confidence interval for
the population RMM.
population_CI
: The confidence interval width for the population RMM.
bootstrap_RMM_LL
: The lower bound of the 95% confidence interval for
the bootstrap RMM.
bootstrap_RMM
: The average RMM value calculated for the bootstrap
sample.
bootstrap_RMM_UL
: The upper bound of the 95% confidence interval for
the bootstrap RMM.
bootstrap_CI
: The width of the 95% confidence interval for the
bootstrap RMM.
Nicolas Foss, Ed.D, MS, original implementation in MATLAB by Nicholas J. Napoli, Ph.D., MS
Kassar, O.M., Eklund, E.A., Barnhardt, W.F., Napoli, N.J., Barnes, L.E., Young, J.S. (2016). Trauma survival margin analysis: A dissection of trauma center performance through initial lactate. The American Surgeon, 82(7), 649-653. doi:10.1177/000313481608200733
Napoli, N. J., Barnhardt, W., Kotoriy, M. E., Young, J. S., & Barnes, L. E. (2017). Relative mortality analysis: A new tool to evaluate clinical performance in trauma centers. IISE Transactions on Healthcare Systems Engineering, 7(3), 181–191. doi:10.1080/24725579.2017.1325948
Schroeder, P. H., Napoli, N. J., Barnhardt, W. F., Barnes, L. E., & Young, J. S. (2018). Relative mortality analysis of the “golden hour”: A comprehensive acuity stratification approach to address disagreement in current literature. Prehospital Emergency Care, 23(2), 254–262. doi:10.1080/10903127.2018.1489021
rmm()
, and nonlinear_bins()
# Generate example data with high negative skewness
set.seed(10232015)
# Parameters
n_patients <- 10000 # Total number of patients
Ps <- plogis(rnorm(n_patients, mean = 2,
sd = 1.5)
) # Skewed towards higher values
# Simulate survival outcomes based on Ps
survival_outcomes <- rbinom(n_patients,
size = 1,
prob = Ps
)
# Create data frame
data <- data.frame(Ps = Ps, survival = survival_outcomes) |>
dplyr::mutate(death = dplyr::if_else(survival == 1, 0, 1))
# Example usage of the `rm_bin_summary` function
rm_bin_summary(data = data, Ps_col = Ps,
outcome_col = survival,
n_samples = 10,
Divisor1 = 4,
Divisor2 = 4
)
# Create example grouping variable (e.g., hospital)
hospital <- sample(c("Hospital A", "Hospital B"), n_patients, replace = TRUE)
# Create data frame
data <- data.frame(Ps = Ps,
survival = survival_outcomes,
hospital = hospital
) |>
dplyr::mutate(death = dplyr::if_else(survival == 1, 0, 1))
# Example usage of the `rm_bin_summary` function with grouping
rm_bin_summary(
data = data,
Ps_col = Ps,
outcome_col = survival,
group_vars = "hospital", # Stratifies by hospital
n_samples = 10,
Divisor1 = 4,
Divisor2 = 4
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.