R coding (21/48)

R coding