computeFRESCO: computeFRESCO

In MedDietScore: Scores of Adherence to Mediterranean Diet and Other Tools for Nutriepidemiological Research

Description

Computes 10-year risk of fatal or non-fatal stroke and Coronary Heart Disease according to FRESCO score ('Función de Riesgo ESpañola de acontecimientos Coronarios y Otros', 'Spanish risk function of coronary and other cardiovascular events').

Usage

computeFRESCO(data, outcome = c("Coronary", "Stroke", "All"), simplified = FALSE,
              Sex, Age, Smoker, BMI,
              Diabetes, SBP, TotChol, HDL, HBPpill,
              men = "male", women = "female")

Arguments

data	list or data.frame which contains the variables
outcome	character string indicating for which outcome risk is to be computed. Allowed values are "Coronary", "Stroke" or "All", which means the output is the risk of a coronary event, stroke, or both
simplified	logical. Original FRESCO score was derived in two versions: the full one, which includes all the following variables; and the other is de simplified one, which uses just sex, age, smoking status and body mass index. If TRUE, the simplified version will be computed.
Sex	variable containing gender of the people. It can be character, factor or numeric, as far as the 'men' and 'women' arguments specify how the formula should handle this variable (See below)
Age	numeric with people age in years
Smoker	numeric variable containg smoking status. 0 = non smoker, 1 = currently smoker
BMI	numeric variable with Body Mass Index (weight[kilograms] / height²[meters])
Diabetes	numeric which informs wether the person is diabetic. 0 = no, 1 = yes.
SBP	numeric variable with Systolic Blood Pressure in mmHg
TotChol	numeric with total serum cholesterol in mg/dl
HDL	numeric with serum High Density Lipoprotein cholesterol in mg/dl
HBPpill	numeric which means if the person is currently under treatment because of High Blood Pressure. 0 = no, 1 = yes.
men	character with informs of how males have been recorded in the 'Sex' argument, default is 'male'. If 'Sex' is numeric, a quoted number should be provided (for instance, men = '1'
women	character. Same meaning as 'men' argument, but for females.

Details

In Spanish population, Framingham-REGICOR function tends to overestimate cardio and cerebrovascular risk. So, FRESCO score was developed among people from 35 to 79 years, which includes a simplified version with no laboratory results, and another one a bit harder to compute with slightly improved prediction ability.

Value

Numeric vector of same length as rows in 'data' with estimated percentage of 10-year risk of fatal or non-fatal event (Coronary Heart Diesease, or stroke or both depending on 'outcome' argument).

Author(s)

Miguel Menendez

References

Marrugat, Jaume, Isaac Subierana, Rafael Ramos, Joan Vila, Alejandro Marin-Ibanez, Maria Jesus Guembe, Fernando Rigo, et al. 2014. "Derivation and Validation of a Set of 10-Year Cardiovascular Risk Predictive Functions in Spain: The FRESCO Study." Preventive Medicine 61 (April): 66-74. doi:10.1016/j.ypmed.2013.12.031.

Examples

myself <- list(sex = "male", age = 32, tobacco = 0, bmi = 21.5)
computeFRESCO(data = myself, outcome = "All", simplified = TRUE,
              Sex = sex, Age = age, Smoker = tobacco, BMI = bmi)

MedDietScore documentation built on April 3, 2017, 4:01 p.m.