ui.R with new input, server.R prediction model changed