# HG changeset patch
# User davidvanzessen
# Date 1471264433 14400
# Node ID 5173675d0d10abf24248d2f8df0554cb2de7636f
# Parent  6f57d43a1f4c7462a80d7f17181d16222ae1d4d6
Uploaded

diff -r 6f57d43a1f4c -r 5173675d0d10 define_clones.r
--- 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")