# https://github.com/r-lib/pkgdown/issues/2704

Skip to contents

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.

  • female

  • male

chest_pain_type

Input characters (typical, atypical, nonanginal) to indicate the chest pain characteristics of the patient.

  • typical stands for the patient having typical chest pain.

  • atypical stands for the patient having atypical chest pain.

  • nonanginal stands for the patient having nonanginal or non-specific chest pain.

have_progressive_angina

Input characters (no, yes) to indicate if the patient has progressive angina.

  • no stands for not having progressive angina.

  • yes stands for having progressive angina.

have_nocturnal_angina

Input characters (no, yes) to indicate if the patient has nocturnal angina.

  • no stands for not having nocturnal angina.

  • yes stands for having nocturnal angina.

have_peripheral_vascular_disease

Input characters (no, yes) to indicate if the patient has peripheral vascular disease.

  • no stands for not having peripheral vascular disease.

  • yes stands for having peripheral vascular disease.

have_cerebrovascular_disease

Input characters (no, yes) to indicate if the patient has cerebrovascular disease.

  • no stands for not having cerebrovascular disease.

  • yes stands for having cerebrovascular disease.

have_carotid_bruits

Input characters (no, yes) to indicate if the patient has carotid bruits.

  • no stands for not having carotid bruits.

  • yes stands for having carotid bruits.

have_hypertension

Input characters (no, yes) to indicate if the patient has hypertension.

  • no stands for not having hypertension.

  • yes stands for having hypertension.

have_dyslipidemia

Input characters (no, yes) to indicate if the patient has dyslipidemia.

  • no stands for not having dyslipidemia.

  • yes stands for having dyslipidemia.

have_diabetes

Input characters (no, yes) to indicate if the patient has diabetes.

  • no stands for not having diabetes.

  • yes stands for having diabetes.

have_q_waves

Input characters (no, yes) to indicate if the patient has Q waves on electrocardiogram (ECG).

  • no stands for the patient not having Q waves on ECG.

  • yes stands for the patient having Q waves on ECG.

have_st_t_changes

Input characters (no, yes) to indicate if the patient has ST-T changes on electrocardiogram (ECG).

  • no stands for the patient not having ST-T changes on ECG.

  • yes stands for the patient having ST-T changes on 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 NA. Default: 0

max_na_pain_index

Input integer 0 to 5 to indicate the maximum number of missing symptoms to tolerate before outputting an NA. Default: 0

max_na_vascular_disease_index

Input integer 0 to 3 to indicate the maximum number of missing disease history to tolerate before outputting an NA. Default: 0

max_frequency_of_angina_pain_per_week

Input non-negative integer to indicate the maximum frequency angina per week to tolerate before outputting an NA. In the Duke Clinical Score 1993 paper, the maximum value is set as 35. Default: 35

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.

Details

The predictive model is based on patients referred for cardiac catheterisation between 1969 and 1983.

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,
)
#> [1] 0.3041388