R coding (36/48)

R coding