C1_05_S.RdFIM™ motorio medio al momento del ricovero
C1_05_S(x)ein 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_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{}