# HG changeset patch
# User davidvanzessen
# Date 1454064137 18000
# Node ID d4e72eeea640e30074880ce35281ecbf4a35afe2
# Parent  8ba6afa1247ac7ff61b522ea831e6bc1f4768814
Uploaded

diff -r 8ba6afa1247a -r d4e72eeea640 aa_histogram.r
--- 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")
diff -r 8ba6afa1247a -r d4e72eeea640 imgt_loader.r
--- a/imgt_loader.r	Thu Jan 28 09:21:25 2016 -0500
+++ b/imgt_loader.r	Fri Jan 29 05:42:17 2016 -0500
@@ -78,3 +78,5 @@
 }
 
 write.table(out, out.file, sep="\t", quote=F, row.names=F, col.names=T)
+
+print("created naive file output")