R code

Description to be completed.