NoPriorCVDRisk_BMI: PREDICT CVD (2018.2) Risk Score for People Without Prior CVD

Description Usage Arguments Details Value See Also Author(s) References Examples

View source: R/NoPriorCVDRisk_BMI.R

Description

NoPriorCVDRisk_BMI calculates the 5 year absolute risk of cardiovascular disease (CVD) for people without a history of atherosclerotic CVD. In this version, BMI is used as a predictor. The outcome of interest is the 5-year risk of a non-fatal or fatal CVD event, including hospitalisation for coronary heart disease, stroke or other cerebrovascular disease (including transient ischaemic attack), peripheral vascular disease and heart failure, or cardiovascular death.

Usage

1
2
NoPriorCVDRisk_BMI(dat, sex, age, eth, nzdep, exsmoker, smoker, diabetes,
                   af, familyhx, sbp, tchdl, bmi, bpl, lld, athrombi, ...)

Arguments

dat

an optional data.frame or data.table containing input data (see details)

sex

binary sex or gender

age

age in years (see details)

eth

ethnicity (see details)

nzdep

socio-economic deprivation (see details)

exsmoker

ex-smoker or recently quit

smoker

currently smoking

diabetes

diabetes status

af

atrial fibrillation status

familyhx

family history of premature CVD

sbp

measured systolic blood pressure in mmHg

tchdl

most recent value of total:HDL cholesterol

bmi

body mass index in kg/m^2

bpl

receiving at least one blood pressure lowering medication

lld

receiving lipid lowering medication

athrombi

receiving antiplatelet or anticoagulant medication

...

further arguments (see values)

Details

When a dataset is supplied, a risk score is produced for each row of data, resulting in a numeric vector of the same length. Each argument requires the variable name from the dataset dat that corresponds with the parameter. If the parameter dat is not supplied, then each argument is assigned an individual's actual parameter value.

The risk prediction equations were developed from a cohort of people aged 30 to 74 years. Additional analyses indicate that the sex-specific risk equations performed adequately in those aged 75-79 years. People aged 18-29 years or 80 years and older, are outside the range used to derive the equation, and therefore risk will be even more of an approximation. The function will calculate ages 18-29 as 30; and ages 80-110 as 79. All other age inputs are invalid and will return NA.

The co-efficients for ethnicity apply only to the following groups: European, Maori, Pacific, Indian, and (non-Indian) Asian. To obtain a risk estimate, ensure that the ethnicity input is either labelled or encoded using one of the values listed below (see values). All other inputs are invalid and will return NA.

The scale for socioeconomic deprivation is derived from the New Zealand Index of Deprivation; a small area-based measure that combines census data relating to income, home ownership, employment, qualifications, family structure, housing, access to transport and communications. The equations require NZDep to be categorised as quintiles, with 1 being the least deprived and 5 being the most deprived.

Value

returns either a single 5-year CVD risk estimate, or a numeric vector of risk estimates if dat is provided. Input values for each parameter must conform to the following convention:

sex

label or encode as one of the following:

  • M, Male, 1

  • F, Female, 0

age

numeric value for years of age between 20 and 110

eth

label or encode as one of the following:

  • NZ European, European, NZEO, Euro, E, 1, 10, 11, or 12

  • Maori, NZMaori, NZ Maori, M, 2, or 21

  • Pacific, Pacific Islander, PI, P, 3, 30, 31, 32, 33, 34, 35, 36, or 37

  • Indian, Fijian Indian, South Asian, IN, I, or 43

  • Asian, Other Asian, SE Asian, East Asian, Chinese, ASN, A, 4, 40, 41, 42, or 44

  • note: Other Asian includes non-Indian South Asian

nzdep

numeric value between 1 and 5

exsmoker

label or encode as one of the following:

  • Y, Yes, Ex, Ex-smoker, Exsmoker, E, 1, T, TRUE

  • N, No, Non-smoker, Non, 0, F, FALSE

smoker

label or encode as one of the following:

  • Y, Yes, Smoker, Current, S, 1, T, TRUE

  • N, No, Non-smoker, Non, 0, F, FALSE

diabetes,
af, hf

label or encode as one of the following:

  • Y, Yes, 1, T, TRUE

  • N, No, 0, F, FALSE

bpl, lld,
athrombi

label or encode as one of the following:

  • Y, Yes, 1, T, TRUE

  • N, No, 0, F, FALSE

sbp, tchdl

numeric value of measured result. Note:

  • SBP and total:HDL values must be available

bmi

numeric value of calculated BMI. If BMI is unknown, input as NA

...

further arguments:

  • dp numeric value to set decimal place; default is 4

  • allow.age logical. Whether or not age range is extended outside of 30 - 74; default is TRUE. If set to FALSE, then NA is returned as risk estimate.

  • allow.na logical. Whether or not missing values for binary variables and smoking status are treated as 0; default is TRUE. If set to FALSE, then NA is returned as risk estimate.

See Also

NoPriorCVDRisk
NoPriorCVDRisk_BMI
NoPriorCVDRisk_Policy
NoPriorCVDBleedRisk
NoPriorT2DRisk
PostCVDRisk
PostACSRisk

Author(s)

Billy Wu (R Developer) and Romana Pylypchuk (Principal Investigator)

References

New Zealand Ministry of Health: HISO 10071:2019 Cardiovascular Disease Risk Assessment Data Standard

HISO Document

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
# As calculator (dataset not provided)
NoPriorCVDRisk_BMI(sex="F", age=65, eth="Indian", smoker=0, nzdep=5,  diabetes=0,
                   af=0, familyhx=1, lld=1, athrombi=1, bpl=1, sbp=118, tchdl=3.3, bmi=32)

NoPriorCVDRisk_BMI(sex=F, age=55, eth=IN, exsmoker=Y, smoker=0, nzdep=5,  diabetes=T,
                   af=Y, familyhx=T, lld=1, athrombi=Y, bpl=T, sbp=120, tchdl=3.2, bmi=42)

# As a vectoriser (dataset provided)
NoPriorCVDRisk_BMI(dat=DF, sex=sex, age=age, eth=ethnic_labels, smoker=smoking_status, nzdep=nzdep_quintiles,
                   diabetes=diab_status, af=af, familyhx=fam_hx, lld=lipidlowering, athrombi=antithrombics,
                   bpl=bplowering, sbp=systolic_bp, tchdl=tchdl_ratio, bmi=bmi)

billy-nz/PredictRiskScores documentation built on April 4, 2020, 6:23 p.m.