test <- read.table("a.txt", as.is = T)
test
index <- read.table("cols",as.is = T)
index
index <- as.vector(t(index))
index
test2 <- test[,index]
test2