Create predict.R

the function i create to automate the prediction calculus