R/bpTable.R

In wiscstatman/Rolemodel: Gene-set analysis via MFA

Defines functions bpTable

Documented in bpTable

## bpout = output from bp() function

bpTable <- function(bpout,pr=0.5){
    bpord <- bpout[order(bpout$ActiveProbability,decreasing=TRUE),]
    bpord[bpord$ActiveProbability>pr,1:2]
}