My R script