R code (11/37)

R code