# Compute Framingham Heart Study Cardiovascular Disease 10-Year Risk Score

Source:`R/compute_framingham.R`

`compute_framingham.Rd`

Computes Framingham Heart Study Cardiovascular Disease 10-Year Risk Score (FCVD101) based on systolic blood pressure, total serum cholesterol (mg/dL), HDL serum cholesterol (mg/dL), sex, smoking status, diabetic status, and treated for hypertension flag.

## Arguments

- sysbp
Systolic blood pressure

A numeric vector is expected.

- chol
Total serum cholesterol (mg/dL)

A numeric vector is expected.

- cholhdl
HDL serum cholesterol (mg/dL)

A numeric vector is expected.

- age
Age (years)

A numeric vector is expected.

- sex
Gender

A character vector is expected. Expected Values: 'M' 'F'

- smokefl
Smoking Status

A character vector is expected. Expected Values: 'Y' 'N'

- diabetfl
Diabetic Status

A character vector is expected. Expected Values: 'Y' 'N'

- trthypfl
Treated for hypertension status

A character vector is expected. Expected Values: 'Y' 'N'

## Details

The predicted probability of having cardiovascular disease (CVD) within 10-years according to Framingham formula. See AHA Journal article General Cardiovascular Risk Profile for Use in Primary Care for reference.

**For Women:**

Factor | Amount |

Age | 2.32888 |

Total Chol | 1.20904 |

HDL Chol | -0.70833 |

Sys BP | 2.76157 |

Sys BP + Hypertension Meds | 2.82263 |

Smoker | 0.52873 |

Non-Smoker | 0 |

Diabetic | 0.69154 |

Not Diabetic | 0 |

Average Risk | 26.1931 |

Risk Period | 0.95012 |

**For Men:**

Factor | Amount |

Age | 3.06117 |

Total Chol | 1.12370 |

HDL Chol | -0.93263 |

Sys BP | 1.93303 |

Sys BP + Hypertension Meds | 2.99881 |

Smoker | .65451 |

Non-Smoker | 0 |

Diabetic | 0.57367 |

Not Diabetic | 0 |

Average Risk | 23.9802 |

Risk Period | 0.88936 |

**The equation for calculating risk:**

$$RiskFactors = (log(Age) * AgeFactor) + (log(TotalChol) * TotalCholFactor) + (log(CholHDL) * CholHDLFactor) \\ + (log(SysBP) * SysBPFactor) + Smoker + Diabetes Present - AvgRisk$$

$$Risk = 100 * (1 - RiskPeriodFactor ^ exp(RiskFactors))$$

## See also

BDS-Findings Functions that returns a vector:
`compute_bmi()`

,
`compute_bsa()`

,
`compute_egfr()`

,
`compute_map()`

,
`compute_qtc()`

,
`compute_qual_imputation_dec()`

,
`compute_qual_imputation()`

,
`compute_rr()`

,
`compute_scale()`

## Examples

```
compute_framingham(
sysbp = 133, chol = 216.16, cholhdl = 54.91, age = 53,
sex = "M", smokefl = "N", diabetfl = "N", trthypfl = "N"
)
#> [1] 10.37514
compute_framingham(
sysbp = 161, chol = 186.39, cholhdl = 64.19, age = 52,
sex = "F", smokefl = "Y", diabetfl = "N", trthypfl = "Y"
)
#> [1] 16.40353
```