--- a/sequence_overview.r	Mon May 30 05:36:53 2016 -0400
+++ b/sequence_overview.r	Mon May 30 06:49:13 2016 -0400
@@ -23,7 +23,8 @@
 
 dat = dat[dat$Sequence.ID %in% merged$Sequence.ID,]
 
-dat$seq_conc = paste(dat$CDR1.IMGT, dat$CDR2.IMGT, dat$CDR3.IMGT, dat$FR2.IMGT, dat$FR3.IMGT)
+#dat$seq_conc = paste(dat$CDR1.IMGT, dat$CDR2.IMGT, dat$CDR3.IMGT, dat$FR2.IMGT, dat$FR3.IMGT)
+dat$seq_conc = paste(dat$CDR1.IMGT, dat$CDR2.IMGT, dat$CDR3.IMGT)
 
 IDs = dat[,c("Sequence.ID", "seq_conc", "best_match", "Functionality")]
 IDs$best_match = as.character(IDs$best_match)
@@ -32,7 +33,7 @@
 
 dat = data.frame(table(dat$seq_conc, dat$Functionality))
 
-dat = dat[dat$Freq > 1,]
+#dat = dat[dat$Freq > 1,]
 
 names(dat) = c("seq_conc", "Functionality", "Freq")
 
@@ -65,7 +66,7 @@
 	
 	classes.sum = sum(classes)
 	
-	if(!any(classes != 0 & classes != classes.sum)){
+	if(classes.sum == 1){
 		next
 	}