In miccec/CPTACBiolinks: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(echo = TRUE)

Get multi omics data of (Endometrial)

CancerType = "Endometrial"
proteomics = getDataType(CancerType,"Proteome")
RNAseq = getDataType(CancerType,"RNAseq")

RNAseq and Proteomics (Endometrial)

proteomics_tum = proteomics$`Proteome (Gene level, TMT Unshared Log Ratio, Tumor)`
rnaseq_tum = RNAseq$`RNAseq (HiSeq, Gene level, Tumor)`

correlation_df <- correlationOmics(proteomics_tum,rnaseq_tum)

p1 <- plotCorrelation(correlation_df)
p1

RNAseq and Proteomics Correlation (GBM)

library(CPTACBiolinks)
CancerType = "GBM"
proteomic = getDataType(CancerType,"Proteome")
RNAseq = getDataType(CancerType,"RNAseq")

RNAseq and Proteomics Correlation (GBM)

proteomics = as.data.frame(proteomic$proteome_normalized)
rnaseq = as.data.frame(RNAseq$RNAseq_fpkm_uq)

keep <- !duplicated(rnaseq$gene_name)
rnaseq <- rnaseq[keep,]
rownames(rnaseq) <- rnaseq$gene_name
rnaseq <- rnaseq[,-c(1:3)]


keep <- !duplicated(proteomics$symbol)
proteomics <- proteomics[keep,]
rownames(proteomics) <- proteomics$symbol
proteomics <- proteomics[,-c(1:3)]

correlation_df <- correlationOmics(proteomics,rnaseq)

p1 <- plotCorrelation(correlation_df)
p1