F2_13_F.RdResezione/sostituzione dell'aorta addominale per aneurisma, non rotto
F2_13_F(x)un tibble (vedere il formato del valore restituito da iqi.input)
F2-Espansione dell'aorta (aneurisma aortico)
F-Operazioni sulle navi
if_else(ddx %in_table% (ICD_Aorta) &
(srg %in_table% (CHOP_Aorta_abdom_offen) |
srg %in_table% (CHOP_Aorta_abdom_evar)) &
(srg %not_in_table% (CHOP_Aorta_thorak_offen) &
srg %not_in_table% (CHOP_Aorta_thorak_evar)) &
ddx %not_in_table% (ICD_Aorta_exkl_Ruptur), 1, as.double(NA))
if (FALSE) p <- iqi.input(path2file) %>% F2_13_F() # \dontrun{}