R/rowcolumn.R

In bmotif: Motif Analyses of Bipartite Networks

rowcolumn <- function(position){
  if(position %in% c(2,4,6,8,11,12,14,16,18,21,22,24,25,28,29,31,34,35,38,41,42,44,46,48,51,52,55,56,57,60,61,63,64,67,68,70,73,74,77,78,81,82,86,87,88,
                     92,93,94,98,99,102,103,106,107,108,111,112,114,117,118,121,122,124,127,128,132,133,136,137,140,143,144,146,148)){
    return("row")
  } else{
    return("column")
  }
}