Mercurial > repos > davidvanzessen > change_o
comparison define_clones.r @ 1:326165da9ece draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Thu, 04 Aug 2016 08:59:47 -0400 |
| parents | |
| children | 5173675d0d10 |
comparison
equal
deleted
inserted
replaced
| 0:dda9b2e72e2b | 1:326165da9ece |
|---|---|
| 1 args <- commandArgs(trailingOnly = TRUE) | |
| 2 | |
| 3 input=args[1] | |
| 4 output=args[2] | |
| 5 | |
| 6 change.o = read.table(input, header=T, sep="\t", quote="", stringsAsFactors=F) | |
| 7 | |
| 8 freq = data.frame(table(change.o$CLONE)) | |
| 9 freq2 = data.frame(table(freq$Freq)) | |
| 10 freq2$final = round(freq2$Freq / as.numeric(freq2$Var1), 2) | |
| 11 | |
| 12 names(freq2) = c("freq", "freq.of.freq", "divided") | |
| 13 | |
| 14 write.table(x=freq2, file=output, sep="\t",quote=F,row.names=F,col.names=T) |