calculate_prevent_risk: Calculate AHA PREVENT Risk

In JMLuther/tabletools: Helpful Tools to Make html Tables

Calculate AHA PREVENT Risk

Description

Uses the PREVENT Base model (sex-specific, race-free) risk equations: PREVENT (AHA Predicting Risk of CVD Events). The PREVENT equations enable 10 and 30-year risk estimates for total CVD (composite of atherosclerotic CVD and heart failure), ASCVD (atherosclerotic CVD), Heart failure (HF), Coronary Artery Disease (CAD), and Stroke. Details provided in Khan et al., Circulation. 2024. Extended models incorporating urine albumin, A1C and socioeconomic risk (by Zip code) are available.

Usage

calculate_prevent_risk(
  risk,
  gender,
  age,
  Tc,
  HDL,
  SBP,
  eGFR,
  BMI = NA,
  current_smoker = FALSE,
  using_antihypertensive_medication = FALSE,
  using_statin = FALSE,
  diabetes = FALSE,
  chol_units = "mg/dL"
)

Arguments

risk	Desired Risk Calculation ("cvd", "ascvd", "hf", "cad", "stroke")
gender	Gender, (Female/Male)
age	Age in years
Tc	Total Cholesterol (mg/dL). converted to mmol/L internally
HDL	HDL Cholesterol (mg/dL). converted to mmol/L internally
SBP	Systolic Blood Pressure, mmHg
eGFR	estimated GFR (ml/min/1.73m2)
BMI	Body Mass Index (kg/m2), used only in HF estimate
current_smoker	current_smoker, T/F
using_antihypertensive_medication	HTN medication use, T/F
using_statin	Statin use, T/F
diabetes	Diabetes, T/F
chol_units	default = mg/dL; cholesterol units not in mg/dL then define here for conversion

Value

10- and 30-year Risk (percent) in Dataframe format

Examples

# Example results below have been validated against original publication (XLSX file with calc check)
# women
calculate_prevent_risk(risk="cvd",gender="Female", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="ascvd",gender="female", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="hf",gender="female", age=50, Tc=200, HDL=45, SBP=160, eGFR=90, BMI=35,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="cad",gender="female", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="stroke",gender="female", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)

# men
calculate_prevent_risk(risk="cvd",gender="male", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="ascvd",gender="male", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="hf",gender="male", age=50, Tc=200, HDL=45, SBP=160, eGFR=90, BMI=35,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="cad",gender="male", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)
calculate_prevent_risk(risk="stroke",gender="male", age=50, Tc=200, HDL=45, SBP=160, eGFR=90,
                      using_antihypertensive_medication = TRUE, diabetes = TRUE)

JMLuther/tabletools documentation built on April 14, 2025, 3:09 a.m.