Mercurial > repos > deepakjadmin > padel_desc

annotate tool3/removeduplecate.R @ 2:f40edfc4a373 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Deleted selected files
author deepakjadmin
date Mon, 04 Jan 2016 12:09:27 -0500
parents 752e8d21676b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
1 args <- commandArgs(TRUE)
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
2
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
3
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
4 res1 <- read.csv(args[1])
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
5 #res11 <- duplicated(res1[,1:length(res1) - 1])
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
6 res11 <- duplicated(res1[,1])
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
7 result <- res1[!res11,]
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
8 names1 <- result[,1]
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
9 rownames(result) <- names1
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
10 result$Name <- NULL
752e8d21676b Uploaded
deepakjadmin
parents:
diff changeset
11 write.csv(result,file=args[2])