Funzione Risk_Kolorektale_Operation

Calcola il rischio di mortalità per chirurgia colorettale per ogni caso inserito e aggiunge una colonna numerica con il risultato. (Indicatore corretto per il rischio - E4_02_M - 21_311). I coefficienti dei fattori di rischio presenti nel caso vengono sommati e la somma viene convertita nel punteggio di rischio.

Risk_Kolorektale_Operation(x)

Arguments

x

un tibble (vedere il formato del valore di ritorno di iqi.input)

Value

Rischio di mortalità della chirurgia colorettale

Specificazione

rcoef <- RACoefficients %>% filter(Indic == 'E4_02') %>% select(-Indic) %>% deframe
logodds = rcoef['Intercept'] deframe
if_else(ageyears > 0, ageyears * rcoef['RF_alte'], 0) deframe
if_else(sex == '2', rcoef['RF_sex'], 0) deframe
if_else(lba == '6', rcoef['RF_avor'], 0) deframe
if_else(any(sdx %in_table% R_ICD_hrs), rcoef['RF_hrs'], 0) deframe
if_else(any(sdx %in_table% R_ICD_hfa), rcoef['RF_hfa'], 0) deframe
if_else(any(sdx %in_table% R_ICD_khk), rcoef['RF_khk'], 0) deframe
if_else(any(sdx %in_table% R_ICD_hypt_orig), rcoef['RF_hypt'], 0) deframe
if_else(any(sdx %in_table% R_ICD_vit), rcoef['RF_vit'], 0) deframe
if_else(any(sdx %in_table% R_ICD_aex), rcoef['RF_aex'], 0) deframe
if_else(any(sdx %in_table% R_ICD_lung), rcoef['RF_lung'], 0) deframe
if_else(any(sdx %in_table% R_ICD_leb), rcoef['RF_leb'], 0) deframe
if_else(any(sdx %in_table% R_ICD_ren), rcoef['RF_ren'], 0) deframe
if_else(any(ddx %in_table% R_ICD_diab), rcoef['RF_diab'], 0) deframe
if_else(any(sdx %in_table% R_ICD_adi), rcoef['RF_adi'], 0) deframe
if_else(any(sdx %in_table% R_ICD_kex), rcoef['RF_kex'], 0) deframe
if_else(any(sdx %in_table% R_ICD_coa), rcoef['RF_coa'], 0) deframe
if_else(any(ddx %in_table% R_ICD_meta), rcoef['RF_meta'], 0) deframe
if_else(any(srg %in_table% R_CHOP_kolerw), rcoef['RF_kolerw'], 0)
Risk_Kolorektale_Operation = exp(logodds)/(1 + exp(logodds))

Examples

if (FALSE)  iqi.input(path2file) %>% Risk_Kolorektale_Operationen()  # \dontrun{}