|
@@ -51,7 +51,7 @@ emapper <- read_delim(argv$emapper_anno,
|
|
|
gene_info <- dplyr::select(emapper, GID, Gene_Name) %>%
|
|
gene_info <- dplyr::select(emapper, GID, Gene_Name) %>%
|
|
|
dplyr::filter(!is.na(Gene_Name)) %>%
|
|
dplyr::filter(!is.na(Gene_Name)) %>%
|
|
|
dplyr::filter(Gene_Name != '-')
|
|
dplyr::filter(Gene_Name != '-')
|
|
|
- eggnog_anno = length(gene_info$GID)
|
|
|
|
|
|
|
+eggnog_anno = length(gene_info$GID)
|
|
|
|
|
|
|
|
# gene to gene ontology
|
|
# gene to gene ontology
|
|
|
gene2go <- dplyr::select(emapper, GID, GO) %>%
|
|
gene2go <- dplyr::select(emapper, GID, GO) %>%
|
