Mercurial > repos > davidvanzessen > change_o
changeset 4:c75b30eb0b07 draft
Uploaded
| author | davidvanzessen |
|---|---|
| date | Mon, 15 Aug 2016 09:35:26 -0400 |
| parents | 5173675d0d10 |
| children | 3d97839fda21 |
| files | define_clones.r |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/define_clones.r Mon Aug 15 08:33:53 2016 -0400 +++ b/define_clones.r Mon Aug 15 09:35:26 2016 -0400 @@ -7,8 +7,8 @@ freq = data.frame(table(change.o$CLONE)) freq2 = data.frame(table(freq$Freq)) -freq2$final = round(freq2$Freq * as.numeric(freq2$Var1), 2) +freq2$final = freq2$Freq * as.numeric(freq2$Var1) -names(freq2) = c("freq", "freq.of.freq", "divided") +names(freq2) = c("Clone size", "Nr of clones", "Nr of sequences") write.table(x=freq2, file=output, sep="\t",quote=F,row.names=F,col.names=T)