> setwd("../Figure3/")
> source("3A.R")
> source("3BCD.01.R")
FIBROBLAST 
         6 
FIBROBLAST 
         6 
> source("3BCD.02.R")
> sensitive.prop
        ACC        BLCA        BRCA        CESC        CHOL        COAD        ESCA         GBM        HNSC        KICH        KIRC        KIRP         LGG        LIHC 
0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.006493506 0.000000000 0.000000000 0.000000000 0.003448276 0.003875969 0.000000000 
       LUAD        LUSC        MESO          OV        PAAD        PCPG        PRAD        READ        SARC        SKCM        STAD        TGCT        THCA        UCEC 
0.000000000 0.000000000 0.011494253 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.088803089 0.961956522 0.000000000 0.000000000 0.000000000 0.000000000 
        UCS         UVM 
0.000000000 0.987500000 
> source("3EF.01.R")
FIBROBLAST 
         6 
FIBROBLAST 
         6 
> source("3EF.02.R")
> sensitive.prop
        ACC        BLCA        BRCA        CESC        CHOL        COAD        ESCA         GBM        HNSC        KICH        KIRC        KIRP         LGG        LIHC 
0.000000000 0.000000000 0.000911577 0.006600660 0.000000000 0.000000000 0.000000000 0.006493506 0.005769231 0.000000000 0.000000000 0.000000000 0.003875969 0.005390836 
       LUAD        LUSC        MESO          OV        PAAD        PCPG        PRAD        READ        SARC        SKCM        STAD        TGCT        THCA        UCEC 
0.000000000 0.015936255 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.000000000 0.011583012 0.970108696 0.000000000 0.013333333 0.000000000 0.005681818 
        UCS         UVM 
0.000000000 0.987500000