Add variable kategori_vt_kardiomyopati for VT-procedures,
based on variables kardiomyopati and type_kardiomyopati.
utlede_kardiomyopati(df)Returns df with 1 new column.
df <- data.frame(
forlopstype = c(NA, 1, rep(2,8)),
kardiomyopati = c(NA, NA, 9, 0, rep(1, 6)),
type_kardiomyopati = c(NA, NA, NA, NA, 1, 2, 3, 4, 5, 99))
ablanor::utlede_kardiomyopati(df)
#> forlopstype kardiomyopati type_kardiomyopati kategori_vt_kardiomyopati
#> 1 NA NA NA <NA>
#> 2 1 NA NA <NA>
#> 3 2 9 NA Ukjent om kardiomyopati
#> 4 2 0 NA Uten kardiomyopati
#> 5 2 1 1 Iskemisk KM (ICM)
#> 6 2 1 2 Dilatert KM (DCM)
#> 7 2 1 3 Annen KM
#> 8 2 1 4 Annen KM
#> 9 2 1 5 Annen KM
#> 10 2 1 99 Annen KM