library(CVrisk)
# Generate default 100 rows
sample_data <- make_sample_data()
# Generate 50 rows
sample_data_50 <- make_sample_data(n = 50)
# Use with compute_CVrisk
if (FALSE) {
data <- make_sample_data(n = 10)
result <- compute_CVrisk(
data,
scores = "ascvd_10y_accaha",
age = "age",
gender = "sex",
race = "race",
sbp = "sbp",
totchol = "totchol",
hdl = "hdl",
bp_med = "bp_med",
smoker = "smoker",
diabetes = "diabetes"
)
}
Run the code above in your browser using DataLab