diff check.pl @ 5:1c09a4a56459 draft

Uploaded
author mkhan1980
date Thu, 25 Apr 2013 11:20:08 -0400
parents ebad609b8a6d
children
line wrap: on
line diff
--- a/check.pl	Mon Mar 04 07:01:24 2013 -0500
+++ b/check.pl	Thu Apr 25 11:20:08 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.