C1_03_S.RdIndice medio di Barthel al momento del ricovero
C1_03_S(x)un tibble (vedere il formato del valore restituito da iqi.input)
C1-Riabilitazione geriatrica precoce
C-Medicina geriatrica
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{}