add program Interaction_type_enrichment.R