act <- read.csv2("%s", header = FALSE, row.names=1, sep='\t')
selected.col <- read.table("%s")
toprint <- as.matrix(act[selected.col[,1] + 1,])
act <- read.csv2("%s", header = FALSE, row.names=1, sep='\t')
selected.col <- read.table("%s")
toprint <- as.matrix(act[selected.col[,1] + 1,])