working shiny app. made a few mods to predictr function