R code to analyze the prudential sticker experiment