Mercurial > repos > davidvanzessen > mutation_analysis
diff tmp/igat.r @ 110:ade5cf6fd2dc draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Tue, 02 Aug 2016 08:30:23 -0400 |
| parents | e4957ad476a2 |
| children |
line wrap: on
line diff
--- a/tmp/igat.r Thu Jul 14 07:29:56 2016 -0400 +++ b/tmp/igat.r Tue Aug 02 08:30:23 2016 -0400 @@ -15,9 +15,9 @@ for(f in list.files(imgt.dir, pattern="*.txt$")){ #print(paste("filtering", f)) path = paste(imgt.dir, f, sep="") - dat = read.table(path, header=T, sep="\t", fill=T, quote="", stringsAsFactors=F) + dat = read.table(path, header=T, sep="\t", fill=T, quote="", stringsAsFactors=F, check.names=FALSE) - dat = dat[dat$Sequence.ID %in% merged$Sequence.ID,] + dat = dat[dat[,"Sequence ID"] %in% merged$Sequence.ID,] if(nrow(dat) > 0 & grepl("^8_", f)){ #change the FR1 columns to 0 in the "8_..." file dat[,grepl("^FR1", names(dat))] = 0