Mercurial > repos > davidvanzessen > mutation_analysis

comparison mutation_analysis.r @ 42:9afd8430de2c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 02 Nov 2015 09:48:00 -0500
parents e022c21f8c47
children 099cc1254f74
comparison
equal deleted inserted replaced
41:1b45c7d7d941 42:9afd8430de2c
93 "CDR2.IMGT.c.t", 93 "CDR2.IMGT.c.t",
94 "FR3.IMGT.c.a", 94 "FR3.IMGT.c.a",
95 "CDR1.IMGT.c.a", 95 "CDR1.IMGT.c.a",
96 "CDR2.IMGT.c.g", 96 "CDR2.IMGT.c.g",
97 "CDR2.IMGT.c.a", 97 "CDR2.IMGT.c.a",
98 "FR1.IMGT.c.t") 98 "FR1.IMGT.c.t",
99 "FR1.IMGT.Nb.of.silent.mutations",
100 "FR2.IMGT.Nb.of.silent.mutations",
101 "FR3.IMGT.Nb.of.silent.mutations",
102 "FR1.IMGT.Nb.of.nonsilent.mutations",
103 "FR2.IMGT.Nb.of.nonsilent.mutations",
104 "FR3.IMGT.Nb.of.nonsilent.mutations")
99 105
100 for(col in cleanup_columns){ 106 for(col in cleanup_columns){
101 dat[,col] = gsub("\\(.*\\)", "", dat[,col]) 107 dat[,col] = gsub("\\(.*\\)", "", dat[,col])
102 #dat[dat[,col] == "",] = "0" 108 #dat[dat[,col] == "",] = "0"
103 dat[,col] = as.numeric(dat[,col]) 109 dat[,col] = as.numeric(dat[,col])