Indice medio di Barthel al momento del ricovero

C1_03_S(x)

Arguments

x

un tibble (vedere il formato del valore restituito da iqi.input)

Capitolo

C1-Riabilitazione geriatrica precoce

Gruppo

C-Medicina geriatrica

Specifica

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))

Examples

if (FALSE)  p <- iqi.input(path2file) %>% C1_03_S()  # \dontrun{}