Description of R script