R coding (44/48)

R coding