R code (23/37)

R code