commenting R code in 01_