R script (5/23)

R script