script de shiny para regresion logistica