R coding (18/48)

R coding