R code (26/37)

R code