Mercurial > repos > davidvanzessen > shm_csr
diff imgt_loader.r @ 54:ba3220f921af draft
Uploaded
author | davidvanzessen |
---|---|
date | Tue, 30 May 2017 07:40:15 -0400 |
parents | 64711f461c8e |
children |
line wrap: on
line diff
--- a/imgt_loader.r Wed May 24 04:26:04 2017 -0400 +++ b/imgt_loader.r Tue May 30 07:40:15 2017 -0400 @@ -68,29 +68,29 @@ out[,"VDJ Frame"] = as.character(out[,"VDJ Frame"]) fltr = out[,"VDJ Frame"] == "in-frame" -if(any(fltr)){ +if(any(fltr, na.rm = T)){ out[fltr, "VDJ Frame"] = "In-frame" } fltr = out[,"VDJ Frame"] == "null" -if(any(fltr)){ +if(any(fltr, na.rm = T)){ out[fltr, "VDJ Frame"] = "Out-of-frame" } fltr = out[,"VDJ Frame"] == "out-of-frame" -if(any(fltr)){ +if(any(fltr, na.rm = T)){ out[fltr, "VDJ Frame"] = "Out-of-frame" } fltr = out[,"VDJ Frame"] == "" -if(any(fltr)){ +if(any(fltr, na.rm = T)){ out[fltr, "VDJ Frame"] = "Out-of-frame" } for(col in c('Top V Gene','Top D Gene','Top J Gene')){ out[,col] = as.character(out[,col]) fltr = out[,col] == "" - if(any(fltr)){ + if(any(fltr, na.rm = T)){ out[fltr,col] = "NA" } }