cvd_risk(sex = "Female", age = 111, total_cholesterol = 111, systolic = 111,
hdl = 11, bp_treated = FALSE, diabetes = TRUE, smoker = TRUE)
# \donttest{
df <- data.frame(
sex = sample(c("Male", "Female"), 5, TRUE),
age = sample(30:100, 5, TRUE),
tc = sample(150:300, 5, TRUE),
hdl = sample(30:70, 5, TRUE),
sbp = sample(100:180, 5, TRUE),
bpmed = sample(c(TRUE, FALSE), 5, TRUE),
diabetes = sample(c(TRUE, FALSE), 5, TRUE),
smoker = sample(c(TRUE, FALSE), 5, TRUE)
)
cvd_risk(
df, sex = "sex", age = "age",
total_cholesterol = "tc", hdl = "hdl",
systolic = "sbp", bp_treated = "bpmed",
diabetes = "diabetes", smoker = "smoker",
combine = FALSE
)
# }
Run the code above in your browser using DataLab