Update of R-code
Update of R-code