data: Remove n_species from genes

This commit is contained in:
Elias Projahn 2021-10-21 11:42:16 +02:00
parent 0eac84377d
commit 064f75ddae
4 changed files with 0 additions and 7 deletions

View file

@ -17,7 +17,6 @@
#' \item{id}{Ensembl gene ID} #' \item{id}{Ensembl gene ID}
#' \item{name}{The gene's HGNC name} #' \item{name}{The gene's HGNC name}
#' \item{chrosome}{The human chromosome the gene is located on} #' \item{chrosome}{The human chromosome the gene is located on}
#' \item{n_species}{Number of known species with the gene.}
#' } #' }
"genes" "genes"

Binary file not shown.

View file

@ -10,7 +10,6 @@ A \link{data.table} with 60568 rows and 3 variables:
\item{id}{Ensembl gene ID} \item{id}{Ensembl gene ID}
\item{name}{The gene's HGNC name} \item{name}{The gene's HGNC name}
\item{chrosome}{The human chromosome the gene is located on} \item{chrosome}{The human chromosome the gene is located on}
\item{n_species}{Number of known species with the gene.}
} }
} }
\usage{ \usage{

View file

@ -142,11 +142,6 @@ for (species_id in species[!id == "hsapiens", id]) {
distances <- rbindlist(list(distances, species_distances)) 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. # Save data in the appropriate place.
usethis::use_data(species, overwrite = TRUE) usethis::use_data(species, overwrite = TRUE)