A simulated dataset for evaluating diagnostic strategies for ruling out myocardial infarction (MI) in patients presenting with chest pain. It includes patient demographics, risk factors, ECG findings, serial troponin levels, and CT angiography results, along with the final MI status.
Usage
data(mi_ruleout_data)Format
A data frame with 800 rows and 11 variables:
- patient_id
Integer. Unique patient identifier.
- ecg
Character. Electrocardiogram (ECG) findings (e.g., "Normal", "Ischemic changes", "Non-specific").
- troponin_initial
Character. Initial cardiac troponin level category (e.g., "Normal", "Slightly Elevated", "Elevated").
- troponin_3hr
Character. Cardiac troponin level at 3 hours category (e.g., "Normal", "Slightly Elevated", "Elevated").
- ct_angiography
Character. Result of CT angiography (e.g., "Negative for CAD", "Positive for CAD", "Not Performed").
- mi_status
Character. Final diagnosis of myocardial infarction (e.g., "MI Confirmed", "MI Ruled Out").
- age
Integer. Patient's age in years.
- chest_pain
Character. Type of chest pain experienced by the patient (e.g., "Typical Angina", "Atypical Angina", "Non-cardiac").
- diabetes
Character. Diabetes mellitus status (e.g., "Yes", "No").
- smoking
Character. Current smoking status (e.g., "Current Smoker", "Former Smoker", "Never Smoked").
- prior_cad
Character. History of prior coronary artery disease (e.g., "Yes", "No").
Examples
data(mi_ruleout_data)
str(mi_ruleout_data)
#> 'data.frame': 800 obs. of 11 variables:
#> $ patient_id : int 1 2 3 4 5 6 7 8 9 10 ...
#> $ ecg : chr "Normal" "Ischemic changes" "Normal" "Ischemic changes" ...
#> $ troponin_initial: chr "Normal" "Elevated" "Normal" "Elevated" ...
#> $ troponin_3hr : chr "Normal" "Elevated" "Normal" "Elevated" ...
#> $ ct_angiography : chr "Significant stenosis" "Significant stenosis" "Significant stenosis" "Significant stenosis" ...
#> $ mi_status : chr "No MI" "MI" "No MI" "MI" ...
#> $ age : int 53 41 84 44 56 40 78 78 56 36 ...
#> $ chest_pain : chr "Atypical" "Typical" "Atypical" "Atypical" ...
#> $ diabetes : chr "No" "No" "No" "No" ...
#> $ smoking : chr "No" "No" "No" "No" ...
#> $ prior_cad : chr "Yes" "No" "No" "No" ...
head(mi_ruleout_data)
#> patient_id ecg troponin_initial troponin_3hr
#> 1 1 Normal Normal Normal
#> 2 2 Ischemic changes Elevated Elevated
#> 3 3 Normal Normal Normal
#> 4 4 Ischemic changes Elevated Elevated
#> 5 5 Normal Normal Normal
#> 6 6 Normal Normal Normal
#> ct_angiography mi_status age chest_pain diabetes smoking prior_cad
#> 1 Significant stenosis No MI 53 Atypical No No Yes
#> 2 Significant stenosis MI 41 Typical No No No
#> 3 Significant stenosis No MI 84 Atypical No No No
#> 4 Significant stenosis MI 44 Atypical No No No
#> 5 <NA> No MI 56 Non-cardiac Yes No No
#> 6 No stenosis No MI 40 Non-cardiac No Yes No
table(mi_ruleout_data$mi_status)
#>
#> MI No MI
#> 81 719
summary(mi_ruleout_data$age)
#> Min. 1st Qu. Median Mean 3rd Qu. Max.
#> 30.00 49.00 60.00 60.13 71.00 90.00