R coding (13/48)

R coding