R script (20/23)

R script