R code (5/37)

R code