johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow selecting the expression dataset

Browse source
This commit is contained in:
Elias Projahn 2022-12-01 21:23:46 +01:00
parent 2f24812c90
commit 510fafeb6e
15 changed files with 110 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/hpa.R Normal file
View file

@ -0,0 +1,12 @@
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)