diff define_clones.r @ 3:5173675d0d10 draft

Uploaded
author davidvanzessen
date Mon, 15 Aug 2016 08:33:53 -0400
parents 326165da9ece
children c75b30eb0b07
line wrap: on
line diff
--- a/define_clones.r	Thu Aug 11 07:40:36 2016 -0400
+++ b/define_clones.r	Mon Aug 15 08:33:53 2016 -0400
@@ -7,7 +7,7 @@
 
 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 = round(freq2$Freq * as.numeric(freq2$Var1), 2)
 
 names(freq2) = c("freq", "freq.of.freq", "divided")