R script (23/23)

R script