R script (15/23)

R script