johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-27 04:07:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add GTEx tissues dataset

Browse source
This commit is contained in:
Elias Projahn 2022-12-01 21:34:07 +01:00
parent 510fafeb6e
commit c14208c2b2
7 changed files with 49 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/hpa.R
View file

@ -1,12 +0,0 @@
library(data.table)
library(here)
i_am("scripts/hpa.R")
# Source: https://www.proteinatlas.org/download/rna_tissue_hpa.tsv.zip
data <- fread(here("scripts", "input", "rna_tissue_hpa.tsv"))
setnames(data, c("Gene", "Tissue", "nTPM"), c("gene", "sample", "expression"))
data[, `:=`("Gene name" = NULL, TPM = NULL, pTPM = NULL)]
hpa_tissues <- ubigen::analyze(data)
usethis::use_data(hpa_tissues, overwrite = TRUE)