R code (19/37)

R code