Some code in R