@@ -30,7 +30,7 @@ synLogin(authToken = PAT)
3030# Read the sample mapping CSV and genes.csv
3131samples_df <- fread(patients )| >
3232 dplyr :: select(improve_sample_id ,common_name ,model_type )| >
33- distinct()# "mpnst/synapse_NF-MPNSTPDX_samples .csv")
33+ distinct()# "mpnst/synapse_NF-MPNSTpdx_samples .csv")
3434
3535pdx_samps <- subset(samples_df ,model_type == ' patient derived xenograft' )
3636tumor_samps <- subset(samples_df ,model_type == ' tumor' )
@@ -41,7 +41,7 @@ manifest<-synapser::synTableQuery("select * from syn53503360")$asDataFrame()|>
4141 dplyr :: rename(common_name = ' Sample' )
4242
4343
44- # #for now we only have tumor and PDX data
44+ # #for now we only have tumor and pdx data
4545# #they each get their own sample identifier
4646pdx_data <- manifest | > dplyr :: select(common_name ,starts_with(" PDX" ))| >
4747 left_join(pdx_samps )| >
@@ -83,7 +83,7 @@ proteomics<-do.call('rbind',lapply(setdiff(pdx_data$Proteomics,c('',NA,"NA")),fu
8383 # }
8484}))
8585
86- fwrite(proteomics ,' /tmp/mpnstPDX_proteomics .csv.gz' )
86+ fwrite(proteomics ,' /tmp/mpnstpdx_proteomics .csv.gz' )
8787
8888
8989# ### FIRST WE GET RNASeq Data
@@ -108,7 +108,7 @@ rnaseq<-do.call('rbind',lapply(setdiff(pdx_data$RNASeq,c(NA,"NA")),function(x){
108108 # }
109109}))
110110
111- fwrite(rnaseq ,' /tmp/mpnstPDX_transcriptomics .csv.gz' )
111+ fwrite(rnaseq ,' /tmp/mpnstpdx_transcriptomics .csv.gz' )
112112
113113
114114
@@ -136,7 +136,7 @@ wes<-do.call(rbind,lapply(setdiff(pdx_data$`Mutations`,c(NA,"NA")),function(x){
136136 # }
137137}))
138138
139- fwrite(wes ,' /tmp/mpnstPDX_mutations .csv.gz' )
139+ fwrite(wes ,' /tmp/mpnstpdx_mutations .csv.gz' )
140140
141141
142142print(paste(" getting CNV" ))
@@ -190,6 +190,6 @@ cnv<-do.call(rbind,lapply(setdiff(pdx_data$CopyNumber,c(NA,"NA")),function(x){
190190 # }
191191}))
192192
193- fwrite(cnv ,' /tmp/mpnstPDX_copy_number .csv.gz' )
193+ fwrite(cnv ,' /tmp/mpnstpdx_copy_number .csv.gz' )
194194
195195# #TODO: get proteomics!!!
0 commit comments