filter_orthologs: Filter on orthologs
In EGAD: Extending guilt by association by degree

Description Usage Arguments Value Examples

The function filters away the labels for the genes that are not in the orthologs list

1	filter_orthologs(annotations, genelist, orthologs)

`annotations`	binary matrix
`genelist`	array of gene ids
`orthologs`	array to filter on

annotations_filtered binary matrix

genes.labels <- matrix( sample( c(0,1), 1000, replace=TRUE), nrow=100)
rownames(genes.labels) = paste('gene', 1:100, sep='')
colnames(genes.labels) = paste('function', 1:10, sep='')
gene.list <- paste('gene', 1:100, sep='')
orthologs <- paste('gene', (1:50)*2, sep='')
genes.labels.filt <- filter_orthologs(genes.labels, gene.list, orthologs)