R code (14/37)

R code