calc_card_10: Cardivascular Disease 10 years risk

In PHP2560-Statistical-Programming-R/r-framingham: a grammer for framingham study based risk scores calculation

Description

calc_card_10 returns 10 years cardivascular relative risk score,

Usage

calc_card_10(data, ...)

Arguments

data	A dataframe
gender	A character
age	A number
bmi	A number
hdl	A number
cholesterol	A number
sbp	A number
is_sbp_under_treatment	A boolean
smoking_status	A boolean
diabetes_status	A boolean

Details

This package uses the widely used framingham risk scoring algorithm used to determine an individual's chances of developing cardiovascular disease. This package gives an estimate of the probability that a person will develop cardiovascular disease within a specified amount of time (10 years)

Value

framingham cardivascular 10 years risk score data and ...

Examples

# simulate patients data
df <- data.frame(age=sample(30:70,100,rep=TRUE),
              gender=sample(c("M","F"),100,rep=TRUE),
              bmi=sample(16:48, rep = TRUE),
              hdl=sample(10:100,100,rep=TRUE),
              chl=sample(100:400,100,rep=TRUE),
              sbp=sample(90:200,100,rep=TRUE),
              isSbpTreated=sample(c(TRUE,FALSE),100,rep=TRUE),
              smoking=sample(c(TRUE,FALSE),100,rep=TRUE),
              diabetes=sample(c(TRUE,FALSE),100,rep=TRUE)
)

# call frisk function
calc_card_10(df, age="age", gender="gender", cholesterol="chl",
            hdl="hdl", sbp="sbp", is_sbp_under_treatment="isSbpTreated",
            smoking_status="smoking", diabetes_status="diabetes"
)

call frisk simple scoring function using BMI
calc_card_10(df, age="age", gender="gender", bmi= "BMI",
             sbp="sbp", is_sbp_under_treatment="isSbpTreated",
            smoking_status="smoking", diabetes_status="diabetes"

PHP2560-Statistical-Programming-R/r-framingham documentation built on May 23, 2019, 4:23 p.m.