| Previous changeset 16:8bdf54f37286 (2014-12-08) Next changeset 18:6a8ec7c022dd (2014-12-16) |
|
Commit message:
Uploaded |
|
modified:
RScript.r |
| b |
| diff -r 8bdf54f37286 -r ff84987df4f8 RScript.r --- a/RScript.r Mon Dec 08 05:21:51 2014 -0500 +++ b/RScript.r Tue Dec 16 03:28:57 2014 -0500 |
| [ |
| @@ -60,7 +60,7 @@ #remove duplicates based on the clonaltype if(clonaltype != "none"){ - PRODF$clonaltype = do.call(paste, c(test[unlist(strsplit(clonaltype, ","))], sep = ":")) + PRODF$clonaltype = do.call(paste, c(PRODF[unlist(strsplit(clonaltype, ","))], sep = ":")) PRODF = PRODF[!duplicated(PRODF$clonaltype), ] } |