# 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

 1 2 3 4 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).

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

 1 2 3 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.