prediction code is in server.R--but still working on formatting newdata