data processing: 20160714

## for the ask ## https://www.ptt.cc/bbs/R_Language/M.1467643744.A.057.html

read.ldf <- function(filename) {
  ldf = read.csv(filename,header = FALSE, as.is=TRUE)
  s <- seq(0,dim(ldf)[1],by=5)
  data = marix(NA, nrow=length(s), ncol= 18)
  for(n in 1:length(s)){
    dat <- data.matrix(ldf[1:5+s[n],])
    data[n,] <- c(unique(dat[,1:3]), as.character(t(dat[,4:6])))
  }
  return(data)
}

data = data.frame()
for(i in 1:length(filename)){
  data = rbind(data, read.ldf(i))
}