R coding (41/48)

R coding