added regular prediction interval to shiny