library(readxl)
base<- read_excel("C:/Users/wsand/Downloads/base_diciembre_audiometrias (4).xlsx")
## New names:
## • `` -> `...1`
library(DT)
DT::datatable(base)
## Warning in instance$preRenderHook(instance): It seems your data is too big
## for client-side DataTables. You may consider server-side processing: https://
## rstudio.github.io/DT/server.html
modelo=glm(HIPOACUSIA~ TIPOZONAEXPOSICIÓNARUIDO + TRATAMIENTOCONALGUNMEDICAMENTOOTOTÓXICOPORMÁSDEDOSMESES + HABITOAUDIFONOSRECREACIONAL +HABITOMOTOCICLETA + HABITODISCOTECA + HABITOTEJO + FUMAOFUMÓ + TIENEALGÚNFAMILIARCONPERDIDASAUDITIVAS + EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOD + EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOI + EXAMENFÍSICOMEMBRANATIMPANICAOD + EXAMENFÍSICOMEMBRANATIMPANICAOI + PERCIBERUIDOENLAVIVIENDA +ENALGUNAACTIVIDADLEMOLESTAELRUIDO + MOLESTIARUIDOENACTIVIDADESEXTRAMURALES + SÍNDROMEALTERACIÓNENSALUD + HAPRESENTADONINGUNSÍNTOMA , data=base, family = binomial)
summary(modelo)
##
## Call:
## glm(formula = HIPOACUSIA ~ TIPOZONAEXPOSICIÓNARUIDO + TRATAMIENTOCONALGUNMEDICAMENTOOTOTÓXICOPORMÁSDEDOSMESES +
## HABITOAUDIFONOSRECREACIONAL + HABITOMOTOCICLETA + HABITODISCOTECA +
## HABITOTEJO + FUMAOFUMÓ + TIENEALGÚNFAMILIARCONPERDIDASAUDITIVAS +
## EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOD + EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOI +
## EXAMENFÍSICOMEMBRANATIMPANICAOD + EXAMENFÍSICOMEMBRANATIMPANICAOI +
## PERCIBERUIDOENLAVIVIENDA + ENALGUNAACTIVIDADLEMOLESTAELRUIDO +
## MOLESTIARUIDOENACTIVIDADESEXTRAMURALES + SÍNDROMEALTERACIÓNENSALUD +
## HAPRESENTADONINGUNSÍNTOMA, family = binomial, data = base)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -1.9951 -0.9281 -0.7048 1.1812 2.2915
##
## Coefficients:
## Estimate Std. Error
## (Intercept) -1.24276 0.05528
## TIPOZONAEXPOSICIÓNARUIDO 0.29330 0.04532
## TRATAMIENTOCONALGUNMEDICAMENTOOTOTÓXICOPORMÁSDEDOSMESES 0.68130 0.11180
## HABITOAUDIFONOSRECREACIONAL -0.74223 0.05427
## HABITOMOTOCICLETA -0.18959 0.08387
## HABITODISCOTECA -0.56540 0.07419
## HABITOTEJO 0.59929 0.09412
## FUMAOFUMÓ 0.29106 0.06077
## TIENEALGÚNFAMILIARCONPERDIDASAUDITIVAS -0.06936 0.06728
## EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOD -0.11009 0.10150
## EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOI 0.01471 0.10149
## EXAMENFÍSICOMEMBRANATIMPANICAOD 0.50861 0.09688
## EXAMENFÍSICOMEMBRANATIMPANICAOI 0.41540 0.09812
## PERCIBERUIDOENLAVIVIENDA 0.13392 0.08117
## ENALGUNAACTIVIDADLEMOLESTAELRUIDO -0.14280 0.07511
## MOLESTIARUIDOENACTIVIDADESEXTRAMURALES 0.27133 0.05718
## SÍNDROMEALTERACIÓNENSALUD 0.26842 0.05202
## HAPRESENTADONINGUNSÍNTOMA 0.44749 0.04414
## z value Pr(>|z|)
## (Intercept) -22.483 < 2e-16 ***
## TIPOZONAEXPOSICIÓNARUIDO 6.472 9.67e-11 ***
## TRATAMIENTOCONALGUNMEDICAMENTOOTOTÓXICOPORMÁSDEDOSMESES 6.094 1.10e-09 ***
## HABITOAUDIFONOSRECREACIONAL -13.677 < 2e-16 ***
## HABITOMOTOCICLETA -2.261 0.0238 *
## HABITODISCOTECA -7.621 2.52e-14 ***
## HABITOTEJO 6.368 1.92e-10 ***
## FUMAOFUMÓ 4.789 1.67e-06 ***
## TIENEALGÚNFAMILIARCONPERDIDASAUDITIVAS -1.031 0.3025
## EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOD -1.085 0.2781
## EXAMENFÍSICOCONDUCTOAUDITIVOEXTERNOOI 0.145 0.8848
## EXAMENFÍSICOMEMBRANATIMPANICAOD 5.250 1.52e-07 ***
## EXAMENFÍSICOMEMBRANATIMPANICAOI 4.234 2.30e-05 ***
## PERCIBERUIDOENLAVIVIENDA 1.650 0.0990 .
## ENALGUNAACTIVIDADLEMOLESTAELRUIDO -1.901 0.0573 .
## MOLESTIARUIDOENACTIVIDADESEXTRAMURALES 4.745 2.08e-06 ***
## SÍNDROMEALTERACIÓNENSALUD 5.160 2.47e-07 ***
## HAPRESENTADONINGUNSÍNTOMA 10.137 < 2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## (Dispersion parameter for binomial family taken to be 1)
##
## Null deviance: 13407 on 10310 degrees of freedom
## Residual deviance: 12458 on 10293 degrees of freedom
## AIC: 12494
##
## Number of Fisher Scoring iterations: 4