R code (15/37)

R code