R script (2/23)

R script