--- a/aa_histogram.r	Thu Jan 28 09:21:25 2016 -0500
+++ b/aa_histogram.r	Fri Jan 29 05:42:17 2016 -0500
@@ -19,6 +19,8 @@
 
 print(dat[,20:40])
 
+print(dat_dt) #need this or it will fail????
+
 m = ggplot(dat_dt, aes(x=i, y=freq)) + theme(axis.text.x = element_text(angle = 90, hjust = 1))
 m = m + geom_histogram(stat="identity", colour = "black", fill = "darkgrey", alpha=0.8) + scale_x_continuous(breaks=1:length(dat_freq), labels=1:length(dat_freq))
 m = m + annotate("segment", x = 0.5, y = -0.05, xend=26.5, yend=-0.05, colour="darkgreen", size=1) + annotate("text", x = 13, y = -0.1, label="FR1")