C1_05_S.Rd
Valeur moyenne du FIM moteur à l'admission
C1_05_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_FIM_motorisch),
case_when( ddx %in_range% ('U5051') ~ 21.5,
ddx %in_range% ('U5041') ~ 36.5,
ddx %in_range% ('U5031') ~ 50.5,
ddx %in_range% ('U5021') ~ 63.5,
ddx %in_range% ('U5011') ~ 76.5,
ddx %in_range% ('U5001') ~ 88.0),
as.double(NA))
if (FALSE) p <- iqi.input(path2file) %>% C1_05_S() # \dontrun{}