Fonction Risk_Herzinsuffizienz

Calcule le risque de mortalité par insuffisance cardiaque pour chaque cas saisi et ajoute une colonne numérique avec le résultat. (Indicateur ajusté au risque - A2_01_M - 02_1). Les coefficients des facteurs de risque présents dans le cas sont additionnés et la somme est convertie en score de risque.

Risk_Herzinsuffizienz(x)

Arguments

x

un tibble (consultez le format de la valeur de retour de iqi.input)

Value

Risque de mortalité lié à l'insuffisance cardiaque

Spécification

rcoef <- RACoefficients %>% filter(Indic == 'A2_01') %>% select(-Indic) %>% deframe
logodds = rcoef['Intercept'] +
if_else(ageyears > 0, ageyears * rcoef['RF_alte'], 0) +
if_else(sex == '2', rcoef['RF_sex'], 0) +
if_else(lba == '6', rcoef['RF_avor'], 0) +
if_else(any(sdx %in_table% R_ICD_av3), rcoef['RF_av3'], 0) +
if_else(any(pdx %in_table% R_ICD_ptach), rcoef['RF_ptach'], 0) +
if_else(any(sdx %in_table% R_ICD_vfl), rcoef['RF_vfl'], 0) +
if_else(any(sdx %in_table% R_ICD_arryth), rcoef['RF_arryth'], 0) +
if_else(any(sdx %in_table% R_ICD_khk), rcoef['RF_khk'], 0) +
if_else(any(ddx %in_table% R_ICD_hypt_orig), rcoef['RF_hypt'], 0) +
if_else(any(sdx %in_table% R_ICD_vitmitr), rcoef['RF_vitmitr'], 0) +
if_else(any(sdx %in_table% R_ICD_vittrik), rcoef['RF_vittrik'], 0) +
if_else(any(sdx %in_table% R_ICD_vitaort), rcoef['RF_vitaort'], 0) +
if_else(any(sdx %in_table% R_ICD_aex), rcoef['RF_aex'], 0) +
if_else(any(sdx %in_table% R_ICD_lung_erw), rcoef['RF_lungerw'], 0) +
if_else(any(sdx %in_table% R_ICD_leb), rcoef['RF_leb'], 0) +
if_else(any(sdx %in_table% R_ICD_ren), rcoef['RF_ren'], 0) +
if_else(any(ddx %in_table% R_ICD_diab), rcoef['RF_diab'], 0) +
if_else(any(sdx %in_table% R_ICD_adi), rcoef['RF_adi'], 0) +
if_else(any(sdx %in_table% R_ICD_kex), rcoef['RF_kex'], 0) +
if_else(any(sdx %in_table% R_ICD_coa), rcoef['RF_coa'], 0) +
if_else(any(sdx %in_table% R_ICD_ca), rcoef['RF_ca'], 0) +
if_else(any(sdx %in_table% R_ICD_nyha3), rcoef['RF_nyha3'], 0) +
if_else(any(ddx %in_table% R_ICD_nyha4), rcoef['RF_nyha4'], 0) +
if_else(any(sdx %in_table% R_ICD_FSTR), rcoef['RF_fstr'], 0)
Risk_Herzinsuffizienz = exp(logodds)/(1 + exp(logodds))

Examples

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