Update step0_preprocess.R

ishworthapa · Aug 26, 2019 · 47ff6f7 · 47ff6f7
1 parent 566a1e5
commit 47ff6f7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/step0_preprocess.R b/src/step0_preprocess.R
@@ -3,7 +3,7 @@ BRCA_raw <- read.table(gzfile("../data/allhtseqcounts.brca.csv.gz"), header = T,
 BRCA_clean <- BRCA_raw[,-grep("11A$|11B$",colnames(BRCA_raw))]
 colnames(BRCA_clean) <- substring(colnames(BRCA_clean),1,12)
 
-bc_er_pr_her_status <- read.table(file="data/bc_er_pr_her_status.txt",header=F,sep=" ",stringsAsFactors = F)
+bc_er_pr_her_status <- read.table(file="../data/bc_er_pr_her_status.txt",header=F,sep=" ",stringsAsFactors = F)
 TNindex <- which(bc_er_pr_her_status[,2] == "Negative" & bc_er_pr_her_status[,3] == "Negative" & bc_er_pr_her_status[,4] == "Negative")
 TN.barcodes <- as.character(bc_er_pr_her_status[TNindex,1])