CHA2DS2VA Add variable CHA2DS2VA score from 0 to 8. #'

Source: R/utlede_variabler.R

CHA2DS2VA Add variable CHA2DS2VA score from 0 to 8. #'

utlede_CHA2DS2VA(df)

Arguments

df

data.frame with Ablanor-data. Must contain variables hjertesvikt, hypertoni and diabetes, tia_slag and alder.

Value

Returns df with 1 new column: CHA2DS2VASc

Details

  • C- hjertesvikt: score +1

  • H- hypertoni: score +1

  • A2- alder(>=75): score +2#'

  • D- diabetes: score +1

  • S2- tia_slag: score +2

  • V- karsykdom: score +1

  • A2- alder(>=65; <75): score +1

Examples

  x <- data.frame(
    hjertesvikt = c(NA, 2, rep(1, 8)),
    hypertoni = c(NA, 1, NA, 0, 0, 9, 9, 1, 1, 1),
    karsykdom = c(0, 1, 1, 1, 1, 0, 0, NA, NA, 9),
    diabetes = c(NA, 9, 1, 9, 1, 1, NA, 1, 0, 9),
    tia_slag = c(NA, 1, 1, 9, 1, 1, 0, 1, 0, 0),
    alder = c(18, 25, 64, 65, 70, 74, 75, 76, 80, 105),
    gender = c(rep(1, 4), NA, NA, rep(2, 4)))
 ablanor::utlede_CHA2DS2VA(x)
#>    hjertesvikt hypertoni karsykdom diabetes tia_slag alder gender CHA2DS2VA
#> 1           NA        NA         0       NA       NA    18      1         0
#> 2            2         1         1        9        1    25      1         4
#> 3            1        NA         1        1        1    64      1         5
#> 4            1         0         1        9        9    65      1         3
#> 5            1         0         1        1        1    70     NA         6
#> 6            1         9         0        1        1    74     NA         5
#> 7            1         9         0       NA        0    75      2         3
#> 8            1         1        NA        1        1    76      2         7
#> 9            1         1        NA        0        0    80      2         4
#> 10           1         1         9        9        0   105      2         4