Mercurial > repos > davidvanzessen > report_clonality_igg
changeset 26:01f05258f672 draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Mon, 09 Feb 2015 08:53:30 -0500 |
| parents | ea5c2a2cc1f3 |
| children | f919965e8816 |
| files | RScript.r |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/RScript.r Mon Feb 09 05:02:33 2015 -0500 +++ b/RScript.r Mon Feb 09 08:53:30 2015 -0500 @@ -72,6 +72,9 @@ PRODF$clonaltype = do.call(paste, c(PRODF[unlist(strsplit(clonaltype, ","))], sep = ":")) PRODF = PRODF[!duplicated(PRODF$clonaltype), ] + UNPROD$clonaltype = do.call(paste, c(UNPROD[unlist(strsplit(clonaltype, ","))], sep = ":")) + UNPROD = UNPROD[!duplicated(UNPROD$clonaltype), ] + #again for clonalityFrame but with sample+replicate clonalityFrame$clonaltype = do.call(paste, c(clonalityFrame[unlist(strsplit(clonaltype, ","))], sep = ":")) clonalityFrame$clonality_clonaltype = do.call(paste, c(clonalityFrame[unlist(strsplit(paste(clonaltype, ",Replicate", sep=""), ","))], sep = ":"))