Mercurial > repos > davidvanzessen > mutation_analysis

annotate change_o/define_clones.r @ 123:0453ea4d9f14 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author davidvanzessen
date Mon, 22 Aug 2016 07:00:23 -0400
parents 613278c1bde0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
120
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
1 args <- commandArgs(trailingOnly = TRUE)
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
2
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
3 input=args[1]
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
4 output=args[2]
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
5
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
6 change.o = read.table(input, header=T, sep="\t", quote="", stringsAsFactors=F)
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
7
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
8 freq = data.frame(table(change.o$CLONE))
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
9 freq2 = data.frame(table(freq$Freq))
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
10
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
11 freq2$final = as.numeric(freq2$Freq) * as.numeric(as.character(freq2$Var1))
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
12
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
13 names(freq2) = c("Clone size", "Nr of clones", "Nr of sequences")
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
14
613278c1bde0 Uploaded
davidvanzessen
parents:
diff changeset
15 write.table(x=freq2, file=output, sep="\t",quote=F,row.names=F,col.names=T)