--- a/sequence_overview.r	Mon May 09 03:45:39 2016 -0400
+++ b/sequence_overview.r	Mon May 09 03:56:38 2016 -0400
@@ -38,6 +38,7 @@
 tbl = function(df) { res = "<table border='1'>"; for(i in 1:nrow(df)){ res = paste(res, tr(df[i,]), sep=""); }; res = paste(res, "</table>"); }
 
 cat("<table border='1'>", file=main.html, append=F)
+cat("<caption>CDR1+CDR2+CDR3+FR2+FR3 sequences that show up more than once</caption>", file=main.html, append=T)
 cat("<tr><th>Sequence</th><th>ca1</th><th>ca2</th><th>cg1</th><th>cg2</th><th>cg3</th><th>cg4</th><th>cm</th></tr>", file=main.html, append=T)
 
 for(i in 1:nrow(dat)){