modification 1.0 of the R file