R coding (8/48)

R coding