reduce by 0

BushmanLab · Aug 7, 2015 · b2e279a · b2e279a
1 parent 5500fdc
commit b2e279a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/standardization_based_on_clustering.R b/standardization_based_on_clustering.R
@@ -46,7 +46,7 @@ dereplicateSites <- function(sites){
   }  
 
   #Dereplicate reads with same standardized starts and provide the longeset width
-  dereplicatedSites <- unlist(reduce(dereplicatedSites))
+  dereplicatedSites <- unlist(reduce(dereplicatedSites, min.gapwidth = 0L))
   mcols(dereplicatedSites) <- mcols(sites.reduced)
 
   dereplicatedSites