comparison RScript.r @ 13:50260274967c draft

Uploaded
author davidvanzessen
date Thu, 13 Nov 2014 10:41:52 -0500
parents 866d22e60e60
children 8002401b83c4
comparison
equal deleted inserted replaced
12:24a80d4eff0c 13:50260274967c
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 = paste(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