Shiny app showing the margin of error for a swing (left/right)