Mercurial > repos > davidvanzessen > report_clonality_igg

comparison RScript.r @ 14:8002401b83c4 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Fri, 14 Nov 2014 04:15:43 -0500
parents 50260274967c
children c6d0ee9b3d91
comparison
equal deleted inserted replaced
13:50260274967c 14:8002401b83c4
58 } 58 }
59 } 59 }
60 60
61 #remove duplicates based on the clonaltype 61 #remove duplicates based on the clonaltype
62 if(clonaltype != "none"){ 62 if(clonaltype != "none"){
63 PRODF$clonaltype = paste(PRODF[,unlist(strsplit(clonaltype, ","))], sep=":") 63 PRODF$clonaltype = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":"))
64 PRODF = PRODF[!duplicated(PRODF$clonaltype), ] 64 PRODF = PRODF[!duplicated(PRODF$clonaltype), ]
65 } 65 }
66 66
67 PRODF$freq = 1 67 PRODF$freq = 1
68 68