pvExcessCoupon(couponExcess=c(2,2,2,2), times=c(1,2,3,4), r= 0.04)
pvExcessCoupon(couponExcess=c(2,2,2,2), times=c(1:4), r= 0.04)
pvExcessCoupon(couponExcess=c(rep(2,4)), times=c(1:4), r= 0.04)
pvExcessCoupon(c(rep(2,4)), c(1:4), 0.04)
Run the code above in your browser using DataLab