From 277ff2c98bdb8b38bea7527007b77a21f0830369 Mon Sep 17 00:00:00 2001 From: Julian Poschenrieder Date: Thu, 13 Nov 2025 15:55:49 +0100 Subject: [PATCH] fixed bug in fn_sponge that appeared while using gene.combinations --- R/fn_sponge.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/fn_sponge.R b/R/fn_sponge.R index f00b4e7..bf43313 100644 --- a/R/fn_sponge.R +++ b/R/fn_sponge.R @@ -213,8 +213,8 @@ sponge <- function(gene_expr, gene.combinations <- gene.combinations[valid_genes,] gene.combinations <- data.frame( - which(all_genes %in% gene.combinations$geneA), - which(all_genes %in% gene.combinations$geneB), + match(gene.combinations$geneA, all_genes), + match(gene.combinations$geneB, all_genes), gene.combinations, stringsAsFactors = FALSE) } else stop("No valid gene combinations selected")