Prediction using Simple liner regression in R