setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) # set the work directory
# to the same file location that the r script is in.
WD <- getwd() # get the current working directory
data = read.csv(paste(WD,"/cvs_name.csv",sep=""),header=TRUE,sep=",",quote="",stringsAsFactors = FALSE)
