if (FALSE) {
dataset <- "TcgaTargetGtex_rsem_isoform_tpm"
id1 <- "TP53"
id2 <- "KRAS"
vis_identifier_cor(dataset, id1, dataset, id2)
samples <- c(
"TCGA-D5-5538-01", "TCGA-VM-A8C8-01",
"TCGA-ZN-A9VQ-01", "TCGA-EE-A17X-06",
"TCGA-05-4420-01"
)
vis_identifier_cor(dataset, id1, dataset, id2, samples)
dataset1 <- "TCGA-BLCA.htseq_counts.tsv"
dataset2 <- "TCGA-BLCA.gistic.tsv"
id1 <- "TP53"
id2 <- "KRAS"
vis_identifier_cor(dataset1, id1, dataset2, id2)
}
Run the code above in your browser using DataLab