changed intrawell prediction intervals in shiny