Merge pull request #5 from atusy/bugfix

bugfix in cluster and read_qnt
atusy · Sep 11, 2018 · c066c2b · c066c2b
2 parents a56f24f + 08933f8
commit c066c2b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/cluster.R b/R/cluster.R
@@ -13,7 +13,7 @@ cluster <- function(x, centers, xte = NULL, ...) {
   x_trans <- t(x)
   y <- pipeline({
     centers
-    apply(1, function(y) colSums(x_trans - y) ^ 2)
+    apply(1, function(y) colSums((x_trans - y) ^ 2))
     apply(1, which.min)
   })
   rm(x_trans)

diff --git a/R/read_qnt.R b/R/read_qnt.R
@@ -50,7 +50,7 @@ read_qnt <- function(
       'wt'
     ) %>>%
     (setNames(paste0(., '.qnt'), .)) %>>%
-    # `[`(file.exists(.)) %>>%
+    `[`(file.exists(.)) %>>%
     lapply(fread)
 
   elemw <- c('.cnd/elemw.cnd', 'Pos_0001/data001.cnd')