R script (1/23)

R script