# 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 the left main coronary artery) coronary artery disease based on the 1993 Duke Clinical Score.

Usage

calculate_dcs_1993_lm_cad_ptp(
  age,
  sex,
  have_typical_chest_pain,
  have_peripheral_vascular_disease,
  have_cerebrovascular_disease,
  have_carotid_bruits,
  duration_of_cad_symptoms_year,
  max_na_vascular_disease_index = 0,
  max_age = 65
)

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

have_typical_chest_pain

Input characters (no, yes) to indicate if the patient has typical chest pain.

  • no stands for the patient not having typical chest pain.

  • yes stands for the patient having typical chest pain.

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.

duration_of_cad_symptoms_year

Input integer to indicate the duration of coronary artery disease symptoms in years.

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_age

Input positive integer to indicate the maximum age to tolerate before outputting an NA. In the Duke Clinical Score 1993 paper, the maximum value is set as 65. Default: 65

Value

A numeric value representing the patient's PTP for left main disease (>75% luminal diameter narrowing of the left main coronary artery) 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 peripheral vascular and cerebrovascular disease.

calculate_dcs_1993_lm_cad_ptp(
    age = 40,
    sex = "female",
    have_typical_chest_pain = "yes",
    have_peripheral_vascular_disease = "yes",
    have_cerebrovascular_disease = "yes",
    have_carotid_bruits = "no",
    duration_of_cad_symptoms_year = 1,
)
#> [1] 0.05016002