Mercurial > repos > davidvanzessen > shm_csr
view change_o/select_first_in_clone.r @ 88:a84ac3ee87e1 draft
"planemo upload commit 78d1fae87dbcf490e49a9f99e7a06de7328e16d4"
author | rhpvorderman |
---|---|
date | Wed, 27 Oct 2021 12:32:21 +0000 |
parents | 6cd12c71c3d3 |
children |
line wrap: on
line source
args <- commandArgs(trailingOnly = TRUE) input.file = args[1] output.file = args[2] print("select_in_first_clone.r") print(input.file) print(output.file) input = read.table(input.file, header=T, sep="\t", fill=T, stringsAsFactors=F, quote="") input = input[!duplicated(input$CLONE),] names(input)[1] = "Sequence.ID" write.table(input, output.file, quote=F, sep="\t", row.names=F, col.names=T, na="")