diff --git a/R/data.R b/R/data.R index eaa1686..7b8aeb3 100644 --- a/R/data.R +++ b/R/data.R @@ -17,7 +17,6 @@ #' \item{id}{Ensembl gene ID} #' \item{name}{The gene's HGNC name} #' \item{chrosome}{The human chromosome the gene is located on} -#' \item{n_species}{Number of known species with the gene.} #' } "genes" diff --git a/data/genes.rda b/data/genes.rda index 793f8c1..823e6af 100644 Binary files a/data/genes.rda and b/data/genes.rda differ diff --git a/man/genes.Rd b/man/genes.Rd index 5cf2454..7ec959d 100644 --- a/man/genes.Rd +++ b/man/genes.Rd @@ -10,7 +10,6 @@ A \link{data.table} with 60568 rows and 3 variables: \item{id}{Ensembl gene ID} \item{name}{The gene's HGNC name} \item{chrosome}{The human chromosome the gene is located on} -\item{n_species}{Number of known species with the gene.} } } \usage{ diff --git a/scripts/ensembl.R b/scripts/ensembl.R index 3807cbc..94f3740 100644 --- a/scripts/ensembl.R +++ b/scripts/ensembl.R @@ -142,11 +142,6 @@ for (species_id in species[!id == "hsapiens", id]) { distances <- rbindlist(list(distances, species_distances)) } -# Add information on number of species per gene. - -genes_n_species <- distances[, .(n_species = .N), by = "gene"] -genes <- merge(genes, genes_n_species, by.x = "id", by.y = "gene") - # Save data in the appropriate place. usethis::use_data(species, overwrite = TRUE)