Merge branch 'master' of https://github.com/venkmurthy/vmtools

venkmurthy · Dec 7, 2023 · b59ddca · b59ddca
2 parents 6efb4d9 + d9064ee
commit b59ddca
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/calcPREVENT.ASCVD.R b/R/calcPREVENT.ASCVD.R
@@ -70,6 +70,10 @@ calcPREVENT.ASCVD <- function(age, sex, tc, hdl, sbp, bptx, smoking, dm, statin,
   lipidtx[sapply(statin,tolower) %in% sapply(statin.true,tolower)] <- 1
   lipidtx[sapply(statin,tolower) %in% sapply(statin.false,tolower)] <- 0
 
+  # Formulas need cholesterol metrics to be in mmol/L
+  tc <- tc * 0.02586
+  hdl <- hdl * 0.02586
+
   # Women
   women <- sapply(sex,tolower) %in% sapply(female,tolower)