R coding (35/48)

R coding