information gain for RTCGA BRCA

RTCGA_info_gain.R

library(devtools)
devtools::install_github('RTCGA/RTCGA')
library(RTCGA)
installTCGA('RTCGA.clinical')
installTCGA('RTCGA.rnaseq')
library(RTCGA.rnaseq)
library(RTCGA.clinical)

library(dplyr)
survivalTCGA(BRCA.clinical) %>% 
   left_join(
      BRCA.rnaseq %>%
         mutate(
            bcr_patient_barcode = 
               substr(bcr_patient_barcode, 1, 12)
         ),
      by = "bcr_patient_barcode") -> BRCA.rnaseq_and_status

#status BRCA.rnaseq_and_status$patient.vital_status


library(FSelector)
information.gain(patient.vital_status~., data = BRCA.rnaseq_and_status)