changeset 51:d4e72eeea640 draft

Uploaded
author davidvanzessen
date Fri, 29 Jan 2016 05:42:17 -0500
parents 8ba6afa1247a
children d3542f87a304
files aa_histogram.r imgt_loader.r
diffstat 2 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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")
--- 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")