var1 <- c(0,1,1,0,0,0,1,0,1,1)
var2idx <- c(3,5,7)
twoWayTable(var1,var2idx)
data("AtongFnDomain")
pf <- Biobase::reverseSplit(AtongFnDomain$SharedPfam)
idx <- which(rownames(AtongFnDomain$pairs) %in% pf$PF00478)
twoWayTable(AtongFnDomain$pairs[,"interact"],idx)
Run the code above in your browser using DataLab