C1_03_S.Rd
Valeur moyenne de l’index de Barthel moteur à l’admission
C1_03_S(x)
un tibble
(voir le format de la valeur de retour deiqi.input)
C1-Rééducation gériatrique précoce
C-Médecine gériatrique
if_else( srg %in_table% (CHOP_Ger_Fruehreha) &
ddx %in_table% (ICD_Barthel_motorisch),
case_when( ddx %in_range% ('U5050') ~ 7.5,
ddx %in_range% ('U5040') ~ 27.5,
ddx %in_range% ('U5030') ~ 47.5,
ddx %in_range% ('U5020') ~ 67.5,
ddx %in_range% ('U5010') ~ 87.5,
ddx %in_range% ('U5000') ~ 100.0),
as.double(NA))
if (FALSE) p <- iqi.input(path2file) %>% C1_03_S() # \dontrun{}