R code (21/37)

R code