This repository contains the R code to reproduce the results from my paper The Power of Incentives. The folder "r_code" contains two files: "dp.R" and "hl.R". File "dp.R" reproduces the results from Section "3.1 Contiuous Case" of the paper and is based on DellaVigna & Pope (2018). File "hl.R" reproduces the results from Section "3.2 Discrete Case" of the paper and is based on Holt & Laury (2002).