backup: some changes in R script