fixed intrawell prediction on shiny