dat1 <- read.table(file = file.choose(), header = TRUE, sep = ",")
dat2 <- read.table(file = file.choose(), header = TRUE, sep = "\t")
datPath <- ""
dat3 <- read.table(file = datPath, header = TRUE, sep = ",")
dat1 <- read.table(file = file.choose(), header = TRUE, sep = ",",
fileEncoding = "CP932")
datPath <- ""
write.csv(dat1, file = datPath, row.names = FALSE)