diff check2.pl @ 6:f1696b304b8d draft default tip

Uploaded
author mkhan1980
date Thu, 25 Apr 2013 11:22:23 -0400
parents 2cceb9398d33
children
line wrap: on
line diff
--- a/check2.pl	Thu Apr 25 11:20:08 2013 -0400
+++ b/check2.pl	Thu Apr 25 11:22:23 2013 -0400
@@ -106,7 +106,7 @@
 
 # Define the pattern for CTCF. Because of pseudocount, a wildcard is allowed at 
 #each position. 
-  	  		my $pattern = "[ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC]";
+  	  		my $pattern = "[ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN]";
 	   
 # Compare the pattern with the 19 bp nucleotide segments.