Check in the correct R code with comments