getwd()
## [1] "C:/Users/86167/Desktop/RStudio/first"
setwd("d:/data")
getwd()
## [1] "C:/Users/86167/Desktop/RStudio/first"