Calculate The Vascular Disease Index For Duke Clinical Score 1993

A function used to calculate the patient's vascular disease index. This is used to calculate the likelihood of severe coronary artery disease in the Duke Clinical Score 1993 paper.

Usage

calculate_dcs_1993_vascular_disease_index(
  have_peripheral_vascular_disease,
  have_cerebrovascular_disease,
  have_carotid_bruits,
  max_na = 0
)

Arguments

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.

max_na

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

Value

An integer indicating the patient's vascular disease index. It can also be NA if the number of missing disease history exceeds the max_na input value.

Examples

calculate_dcs_1993_vascular_disease_index(
  have_peripheral_vascular_disease = "yes",
  have_cerebrovascular_disease = "yes",
  have_carotid_bruits = "no"
)
#> [1] 2

calculate_dcs_1993_vascular_disease_index(
  have_peripheral_vascular_disease = NA,
  have_cerebrovascular_disease = "yes",
  have_carotid_bruits = "no",
  max_na = 0
)
#> [1] NA

calculate_dcs_1993_vascular_disease_index(
  have_peripheral_vascular_disease = NA,
  have_cerebrovascular_disease = "yes",
  have_carotid_bruits = "no",
  max_na = 1
)
#> [1] 1