R coding (16/48)

R coding