I posted earlier today about an error I was getting with using the predict function. I was able to get that corrected, and thought I was on the right path.
predict
instead of newdata you are using newdate in your predict code, verify once. and just use Coupon$estimate <- predict(model, Coupon) It will work.
Coupon$estimate <- predict(model, Coupon)