Skip to content

Commit

Permalink
remove commented codes
Browse files Browse the repository at this point in the history
  • Loading branch information
ningbioinfo committed Sep 27, 2023
1 parent 4665e5b commit fd075e0
Showing 1 changed file with 0 additions and 5 deletions.
5 changes: 0 additions & 5 deletions R/merge_by_group.R
Original file line number Diff line number Diff line change
Expand Up @@ -43,11 +43,6 @@ mergeByGroup <- function(pm, group_df) {
mask <- 1 * (group_df == g)
rowSums(mask * pm)[rownames(df)]
}, numeric(nrow(df)))

# for (g in uniquegroups) {
# mask <- (group_df == g) |> `storage.mode<-`("numeric")
# out_df[, g] <- rowSums(mask * pm)[rownames(df)]
# }

out_df[is.na(out_df)] <- 0

Expand Down

0 comments on commit fd075e0

Please sign in to comment.