Mercurial > repos > davidvanzessen > report_clonality_igg

comparison RScript.r @ 17:ff84987df4f8 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Tue, 16 Dec 2014 03:28:57 -0500
parents c6d0ee9b3d91
children c5256a227d2d
comparison
equal deleted inserted replaced
16:8bdf54f37286 17:ff84987df4f8
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 = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":")) 63 PRODF$clonaltype = do.call(paste, c(PRODF[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