Create predict.R