Please run this code in R

reset wd