R script (6/23)

R script