calculate_dcs_1993_severe_cad_ptp {pretestcad} | R Documentation |
Calculate 1993 Duke Clinical Score for Severe CAD
Description
This function returns a patient's pre-test probability (PTP) of severe (>75% luminal diameter narrowing of all three major coronary arteries or of the left main coronary artery) coronary artery disease based on the 1993 Duke Clinical Score.
Usage
calculate_dcs_1993_severe_cad_ptp(
age,
sex,
chest_pain_type,
have_progressive_angina,
have_nocturnal_angina,
have_peripheral_vascular_disease,
have_cerebrovascular_disease,
have_carotid_bruits,
have_hypertension,
have_dyslipidemia,
have_diabetes,
have_q_waves,
have_st_t_changes,
frequency_of_angina_pain_per_week,
duration_of_cad_symptoms_year,
max_na_risk_factor_index = 0,
max_na_pain_index = 0,
max_na_vascular_disease_index = 0,
max_frequency_of_angina_pain_per_week = 35
)
Arguments
age |
Input integer value to indicate the age of the patient. |
sex |
Input characters (female, male) to indicate the sex of the patient.
|
chest_pain_type |
Input characters (typical, atypical, nonanginal) to indicate the chest pain characteristics of the patient.
|
have_progressive_angina |
Input characters (no, yes) to indicate if the patient has progressive angina.
|
have_nocturnal_angina |
Input characters (no, yes) to indicate if the patient has nocturnal angina.
|
have_peripheral_vascular_disease |
Input characters (no, yes) to indicate if the patient has peripheral vascular disease.
|
have_cerebrovascular_disease |
Input characters (no, yes) to indicate if the patient has cerebrovascular disease.
|
have_carotid_bruits |
Input characters (no, yes) to indicate if the patient has carotid bruits.
|
have_hypertension |
Input characters (no, yes) to indicate if the patient has hypertension.
|
have_dyslipidemia |
Input characters (no, yes) to indicate if the patient has dyslipidemia.
|
have_diabetes |
Input characters (no, yes) to indicate if the patient has diabetes.
|
have_q_waves |
Input characters (no, yes) to indicate if the patient has Q waves on electrocardiogram (ECG).
|
have_st_t_changes |
Input characters (no, yes) to indicate if the patient has ST-T changes on electrocardiogram (ECG).
|
frequency_of_angina_pain_per_week |
Input integer to indicate the patient's frequency of angina per week. |
duration_of_cad_symptoms_year |
Input integer to indicate the duration of coronary artery disease symptoms in years. |
max_na_risk_factor_index |
Input integer 0 to 3 to indicate the maximum number of
missing risk factors to tolerate before outputting an |
max_na_pain_index |
Input integer 0 to 5 to indicate the maximum number of
missing symptoms to tolerate before outputting an |
max_na_vascular_disease_index |
Input integer 0 to 3 to indicate the maximum number of
missing disease history to tolerate before outputting an |
max_frequency_of_angina_pain_per_week |
Input non-negative integer to
indicate the maximum frequency angina per week to tolerate before outputting an |
Details
The predictive model is based on patients referred for cardiac catheterisation between 1969 and 1983.
Value
A numeric value representing the patient's PTP for severe (>75% luminal diameter narrowing of all three major coronary arteries or of the left main coronary artery) CAD based on the 1993 Duke Clinical Score.
Examples
# 40 year old female with typical chest pain for one year,
# She has progressive angina but no nocturnal angina.
# Angina pain lasted at most five times a week.
# She has peripheral vascular and cerebrovascular disease.
# She has hypertension but has no dyslipidemia and not diabetic.
# She has Q waves and ST-T changes on ECG.
calculate_dcs_1993_severe_cad_ptp(
age = 40,
sex = "female",
chest_pain_type = "typical",
have_progressive_angina = "yes",
have_nocturnal_angina = "no",
have_peripheral_vascular_disease = "yes",
have_cerebrovascular_disease = "yes",
have_carotid_bruits = "no",
have_hypertension = "yes",
have_dyslipidemia = "no",
have_diabetes = "no",
have_q_waves = "yes",
have_st_t_changes = "yes",
frequency_of_angina_pain_per_week = 5,
duration_of_cad_symptoms_year = 1,
)