+ toprint <- as.matrix(act[selected.col[,1] + 1,])
+ rownames(toprint) <- rownames(act)[selected.col[,1] + 1]
+ maxword <- %i
+ if (nrow(toprint) > maxword) {
+ toprint <- as.matrix(toprint[order(toprint[,1], decreasing=TRUE),])
+ toprint <- as.matrix(toprint[1:maxword,])
+ }