R code of predictMPG shinyApp