diff RScript.r @ 4:89d80f086328 draft

Uploaded
author davidvanzessen
date Mon, 25 Sep 2017 08:20:12 -0400
parents 20f0df3721aa
children bcf1469e8feb
line wrap: on
line diff
--- 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,]