Mercurial > repos > davidvanzessen > mutation_analysis

comparison mutation_analysis.r @ 72:51d92233fb5d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Wed, 04 May 2016 04:28:02 -0400
parents 9165bec41c02
children 13c3710604ef
comparison
equal deleted inserted replaced
71:9165bec41c02 72:51d92233fb5d
227 if(fname == "sum"){ 227 if(fname == "sum"){
228 matrx[10,x] = round(f(rowSums(tmp[,c("FR2.IMGT.Nb.of.nucleotides", "FR3.IMGT.Nb.of.nucleotides")], na.rm=T)), digits=1) 228 matrx[10,x] = round(f(rowSums(tmp[,c("FR2.IMGT.Nb.of.nucleotides", "FR3.IMGT.Nb.of.nucleotides")], na.rm=T)), digits=1)
229 matrx[10,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1) 229 matrx[10,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
230 matrx[10,z] = round(matrx[10,x] / matrx[10,y], digits=1) 230 matrx[10,z] = round(matrx[10,x] / matrx[10,y], digits=1)
231 231
232 matrx[11,x] = round(f(rowSums(tmp[,c("CDR1.IMGT.Nb.of.nucleotides", "CDR3.IMGT.Nb.of.nucleotides")], na.rm=T)), digits=1) 232 matrx[11,x] = round(f(rowSums(tmp[,c("CDR1.IMGT.Nb.of.nucleotides", "CDR2.IMGT.Nb.of.nucleotides")], na.rm=T)), digits=1)
233 matrx[11,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1) 233 matrx[11,y] = round(f(tmp$VRegionNucleotides, na.rm=T), digits=1)
234 matrx[11,z] = round(matrx[11,x] / matrx[11,y], digits=1) 234 matrx[11,z] = round(matrx[11,x] / matrx[11,y], digits=1)
235 } 235 }
236 } 236 }
237 237