diff --git a/src/intersect_SNP.R b/src/intersect_SNP.R index b2f7df28490762189716463a36e18774e9f873b6..298b8785276cccdd119590ae1c12fa5f522c97c8 100755 --- a/src/intersect_SNP.R +++ b/src/intersect_SNP.R @@ -24,7 +24,6 @@ snp$seq_list <- snp %>% begin <- as.integer(x[ POS ]) - 10 end <- as.integer(x[ POS ]) + 10 chrom <- x[ CHROM ] - print(paste0(chrom, ":", begin, "-", end)) seq_restric <- fastafile[[ chrom ]] %>% c2s() %>% substr(begin, end) %>%