--- 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)){

--- a/wrapper.sh	Mon May 09 03:45:39 2016 -0400
+++ b/wrapper.sh	Mon May 09 03:56:38 2016 -0400
@@ -164,6 +164,7 @@
 echo "<a href='mutation_by_id.txt'>mutations by id</a><br />" >> $output
 echo "<a href='aa_id_mutations.txt'>AA mutations location by id</a><br />" >> $output
 echo "<a href='absent_aa_id.txt'>Absant AA locations by id</a><br />" >> $output
+echo "<a href='sequence_overview/index.html'>Sequence Overview</a><br />" >> $output
 
 echo "---------------- images ----------------"