R code (18/37)

R code