====== R code ====== ## R