Update A_KMT_Minus_End_Seeds.R

RRobert92 · May 19, 2020 · f40bdad · f40bdad
1 parent 24a36c1
commit f40bdad
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ASGA/bin/Packages/Analysis/A_KMT_Minus_End_Seeds.R b/ASGA/bin/Packages/Analysis/A_KMT_Minus_End_Seeds.R
@@ -23,10 +23,10 @@ A_KMT_Minus_End_Seeds <- function (input, output, session){
 
   KMTs_minus_seed_P1 <- Minus_end_seed(which(colnames(Segments) == "Pole1_00"))
 
-  for(m in as.numeric(which(colnames(Segments) == "Pole1_00")+1):as.numeric(which(colnames(Segments) == "Pole2_00") - 1)){
+  for(i in as.numeric(which(colnames(Segments) == "Pole1_00")+1):as.numeric(which(colnames(Segments) == "Pole2_00") - 1)){
     tryCatch({
       assign("DF",
-             Minus_end_seed(m))
+             Minus_end_seed(i))
       KMTs_minus_seed_P1 <- rbind(KMTs_minus_seed_P1,
                                   DF)
     },