Removed check for previous row being NA in while (j <= SNP_length) loop

Removed:`if(is.na(SNP_record$removed[(j-1))) { break }`because don't see how this could be useful and caused #8
laninsky · Sep 10, 2019 · 09c2501 · 09c2501
1 parent 563b93c
commit 09c2501
Showing 1 changed file with 0 additions and 3 deletions.
diff --git a/GBS_SNP_filter_rsq.R b/GBS_SNP_filter_rsq.R
@@ -135,9 +135,6 @@ while (j <= SNP_length) {
   SNP_length <- dim(SNP_record)[1]
   if (SNP_length==1) {
     break
-  }  
-  if(is.na(SNP_record[(j-1),8])) {
-    break
   }
 }