diff --git a/GSE42872_main/step1-download.R b/GSE42872_main/step1-download.R index 306ce2c..9e01035 100644 --- a/GSE42872_main/step1-download.R +++ b/GSE42872_main/step1-download.R @@ -56,8 +56,8 @@ if(F){ #Download GPL file, put it in the current directory, and load it: gpl <- getGEO('GPL6244', destdir=".") colnames(Table(gpl)) - head(Table(gpl)[,c(1,15)]) ## you need to check this , which column do you need - probe2gene=Table(gpl)[,c(1,15)] + head(Table(gpl)[,c(1,12)]) ## you need to check this , which column do you need + probe2gene=Table(gpl)[,c(1,12)] head(probe2gene) library(stringr) save(probe2gene,file='probe2gene.Rdata') @@ -90,4 +90,4 @@ save(dat,group_list,file = 'step1-output.Rdata') - \ No newline at end of file +