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

Skip to contents

Calculate AHA/ACC 2021 PTP for obstructive CAD

Source: R/aha_2021_conference_ptp.R
calculate_aha_2021_ptp.Rd

This function returns a patient's pre-test Probability (PTP) of obstructive coronary artery disease (CAD) based on the American Heart Association/American College of Cardiology (AHA/ACC) 2021 guidelines.

Usage

calculate_aha_2021_ptp(
  age,
  sex,
  have_dyspnoea,
  have_chest_pain,
  output = c("grouping", "numeric", "percentage")
)

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_dyspnoea

Input characters (no, yes) to indicate if the patient only has dyspnoea symptoms.

  • no stands for not having dyspnoea symptoms.

  • yes stands for having dyspnoea symptoms.

have_chest_pain

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

  • no stands for not having dyspnoea symptoms.

  • yes stands for having dyspnoea symptoms.

output

Input text to indicate the how pre-test probability results be expressed Default: c("grouping", "numeric", "percentage")

  • grouping means the PTP will be expressed as Low, Intermediate and High.

    • very low if PTP is less than 5%.

    • low if PTP is in between 5% to 15%.

    • intermediate if PTP is in between 15% to 50%.

    • high if PTP is more than 50%.

  • numeric means the PTP will be expressed as an integer probability (0-100).

  • percentage means the PTP will be expressed as percentage text (0-100%).

Value

An integer, percentage or category representing the patient's PTP for obstructive CAD based on the AHA/ACC 2021 guidelines. See parameter option output for more information.

Details

The predictive model used to create the guidelines are based on patients from European countries with low cardiovascular disease (CVD) risk.

If the patient has both dyspnoea and a particular chest pain type (typical, atypical, nonanginal), The chest pain type will take precedence over dyspnoea

Examples

# 35 year old female with chest pain
calculate_aha_2021_ptp(
    age = 35,
    sex = "female",
    have_dyspnoea = "no",
    have_chest_pain = "yes",
    output = "percentage"
)
#> [1] "<=5%"

# 75 year old male with only dyspnoea
calculate_aha_2021_ptp(
    age = 75,
    sex = "male",
    have_dyspnoea = "yes",
    have_chest_pain = "no",
    output = "percentage"
)
#> [1] "32%"