testPG <- .loadPgExample(withGroups=TRUE, withParalogues=TRUE)
# Number of gene groups before collapse
nGeneGroups(testPG)
# Number of gene groups after collapse
testPG <- collapseParalogues(testPG, combineInfo='largest')
nGeneGroups(testPG)
Run the code above in your browser using DataLab