R code for Advertising Discontinuity Analysis