view remove_redundant_entries.R @ 2:20a170b2a127 draft default tip

planemo upload commit fc92464160be1df8c74a9b9c4b6ef2cb9554d0d3-dirty
author anmoljh
date Wed, 18 Oct 2017 04:47:39 -0400
parents 46800a6ab357
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])