in R I am trying to predict a single value. However, I return all the fitted values when I run the code