| Previous changeset 13:50260274967c (2014-11-13) Next changeset 15:c6d0ee9b3d91 (2014-12-04) |
|
Commit message:
Uploaded |
|
modified:
RScript.r |
| b |
| diff -r 50260274967c -r 8002401b83c4 RScript.r --- a/RScript.r Thu Nov 13 10:41:52 2014 -0500 +++ b/RScript.r Fri Nov 14 04:15:43 2014 -0500 |
| [ |
| @@ -60,7 +60,7 @@ #remove duplicates based on the clonaltype if(clonaltype != "none"){ - PRODF$clonaltype = paste(PRODF[,unlist(strsplit(clonaltype, ","))], sep=":") + PRODF$clonaltype = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":")) PRODF = PRODF[!duplicated(PRODF$clonaltype), ] } |