Mercurial > repos > deepakjadmin > padel_descriptors_test4
comparison tool3/removeduplecate.R @ 0:8679c4655902 draft
Uploaded
| author | deepakjadmin | 
|---|---|
| date | Thu, 07 Jan 2016 06:59:47 -0500 | 
| parents | |
| children | 
   comparison
  equal
  deleted
  inserted
  replaced
| -1:000000000000 | 0:8679c4655902 | 
|---|---|
| 1 args <- commandArgs(TRUE) | |
| 2 | |
| 3 | |
| 4 res1 <- read.csv(args[1]) | |
| 5 #res11 <- duplicated(res1[,1:length(res1) - 1]) | |
| 6 res11 <- duplicated(res1[,1]) | |
| 7 result <- res1[!res11,] | |
| 8 names1 <- result[,1] | |
| 9 rownames(result) <- names1 | |
| 10 result$Name <- NULL | |
| 11 write.csv(result,file=args[2]) | 
