R script (18/23)

R script