R coding (30/48)

R coding