Mercurial > repos > davidvanzessen > shm_csr

annotate change_o/select_first_in_clone.r @ 98:d714f5ea83d7 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 1a01065a084a817382872154f779b94090a35ebf
author rhpvorderman
date Wed, 10 Jan 2024 12:32:47 +0000
parents 6cd12c71c3d3
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
55
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
1 args <- commandArgs(trailingOnly = TRUE)
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
2
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
3 input.file = args[1]
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
4 output.file = args[2]
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
5
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
6 print("select_in_first_clone.r")
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
7 print(input.file)
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
8 print(output.file)
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
9
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
10 input = read.table(input.file, header=T, sep="\t", fill=T, stringsAsFactors=F, quote="")
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
11
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
12 input = input[!duplicated(input$CLONE),]
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
13
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
14 names(input)[1] = "Sequence.ID"
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
15
6cd12c71c3d3 Uploaded
davidvanzessen
parents:
diff changeset
16 write.table(input, output.file, quote=F, sep="\t", row.names=F, col.names=T, na="")