getFamily: Get the miRNA Family and add to the miRNA Enrichment Results
In komalsrathi/miRNAEnrich: Enrichment of miRNA

1	getFamily(results, mir.fam)

`results`
`mir.fam`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (results, mir.fam) 
{
    results = merge(results, mir.fam[, c(1, 4)], by.x = "miRNA", 
        by.y = "miRBaseID", all.x = T)
    results = aggregate(miRNA ~ ., results, toString)
    results$miRNA <- vapply(results$miRNA, paste, collapse = ", ", 
        character(1L))
    return(results)
  }