18.05 R Code