Update R script due to the change of folder name