R code (25/37)

R code