file = list.files(path = "G:\\",pattern = ".txt")
file
RPKM <- lapply(file,function(x) read.table(x, header = T,row.names = 1))
rawdata <-Reduce(cbind, RPKM)
file = list.files(path = "G:\\",pattern = ".txt")
file
RPKM <- lapply(file,function(x) read.table(x, header = T,row.names = 1))
rawdata <-Reduce(cbind, RPKM)