특정 칼럼만 CSV에서 로드하기

> setwd('path')
> files = list.files(pattern="*.csv")
> myfiles = do.call(rbind, lapply(files, function(x) read.csv(x,  sep = ",")[ ,2:3])) #2열~3열만