Mercurial > repos > deepakjadmin > toolpadel3
diff removeduplecate.R @ 0:2928e8312b5f draft
Uploaded
author | deepakjadmin |
---|---|
date | Thu, 14 Jan 2016 07:35:42 -0500 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/removeduplecate.R Thu Jan 14 07:35:42 2016 -0500 @@ -0,0 +1,11 @@ +args <- commandArgs(TRUE) + + +res1 <- read.csv(args[1]) +#res11 <- duplicated(res1[,1:length(res1) - 1]) +res11 <- duplicated(res1[,1]) +result <- res1[!res11,] +names1 <- result[,1] +rownames(result) <- names1 +result$Name <- NULL +write.csv(result,file=args[2])