view tool3/removeduplecate.R @ 10:1ed1be5611bb draft

Deleted selected files
author deepakjadmin
date Wed, 06 Jan 2016 09:44:09 -0500
parents 1b8c54b9de55
children
line wrap: on
line source

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])