Shiny app to plot/model logistic regression(GLM) in R