R code (22/37)

R code