## Not run:
# library(dplyr)
# ## RNASeq expressions
# library(RTCGA.rnaseq)
# expressionsTCGA(BRCA.rnaseq, OV.rnaseq, HNSC.rnaseq) %>%
# rename(cohort = dataset) %>%
# filter(substr(bcr_patient_barcode, 14, 15) == "01") -> BRCA.OV.HNSC.rnaseq.cancer
#
# pcaTCGA(BRCA.OV.HNSC.rnaseq.cancer, "cohort")
# pcaTCGA(BRCA.OV.HNSC.rnaseq.cancer, "cohort", add.lines = FALSE)
# pcaTCGA(BRCA.OV.HNSC.rnaseq.cancer, "cohort", return.pca = TRUE) -> pca.rnaseq
# pca.rnaseq$plot
# pca.rnaseq$pca
# ## End(Not run)
Run the code above in your browser using DataLab