gene_co_occur function