Uncommented our R code in exercise16.r