SplitData = function(filepath = "/home/zgong001/Documents/Drpark/huang/Data_DR_csv_20190411.csv", seed=12345, groupnumber=4){
  myData <- read.csv(file = filepath, header=TRUE, sep=",")
  set.seed(seed)
  splitData <- split(myData, sample(1:groupnumber, nrow(myData), replace=TRUE))
  
  outfilepath = strsplit(filepath, "\\.")[[1]][1]

  
  for(i in 1:groupnumber){
    
    outName = paste(outfilepath, "-file", i, ".txt", sep = "")
    
    write.table(splitData[[i]], file= outName, append = FALSE, sep = "\t", row.names = FALSE, col.names = TRUE)

  }
}