R code (12/37)

R code