R script (14/23)

R script