R script (19/23)

R script