L105 R script 2.R