Add variable kategori_afli_hjsvikt_ef
for AFLI-procedyres, value
based on variables hjertesvikt
and ejekfrak
.
utlede_hjertesvikt_redusert_ef(df)
Returns df
with 1 new column
df <- data.frame(
forlopstype = c(NA, 2, rep(1, 8)),
hjertesvikt = c(NA, 1, NA, 0, 0, 9, 9, 1, 1, 1),
ejekfrak = c(NA, 9, 1, 9, 1, 1, 3, 1, 2, 3))
ablanor::utlede_hjertesvikt_redusert_ef(df)
#> forlopstype hjertesvikt ejekfrak kategori_afli_hjsvikt_ef
#> 1 NA NA NA <NA>
#> 2 2 1 9 <NA>
#> 3 1 NA 1 AFLI-Verken hjertesvikt eller redusert EF
#> 4 1 0 9 AFLI-Verken hjertesvikt eller redusert EF
#> 5 1 0 1 AFLI-Verken hjertesvikt eller redusert EF
#> 6 1 9 1 AFLI-Verken hjertesvikt eller redusert EF
#> 7 1 9 3 AFLI-Hjertesvikt og/eller redusert EF
#> 8 1 1 1 AFLI-Hjertesvikt og/eller redusert EF
#> 9 1 1 2 AFLI-Hjertesvikt og/eller redusert EF
#> 10 1 1 3 AFLI-Hjertesvikt og/eller redusert EF