# HG changeset patch
# User davidvanzessen
# Date 1506342012 14400
# Node ID 89d80f086328259e763c7c546bd5348c267766ab
# Parent  20f0df3721aa7cc36766648f87edbd99c0afc06c
Uploaded

diff -r 20f0df3721aa -r 89d80f086328 RScript.r
--- a/RScript.r	Mon Sep 25 08:07:11 2017 -0400
+++ b/RScript.r	Mon Sep 25 08:20:12 2017 -0400
@@ -47,6 +47,7 @@
 cat("<tr><td>Calculating Frequency</td></tr>", file=logfile, append=T)
 
 dat$Frequency = ((10^dat$Log10_Frequency)*100)
+dat = dat[dat$Frequency <= 100,] #just in case
 
 dat = dat[dat$Frequency >= min_freq,]