R code (28/37)

R code