Using The Predict Function In R