fix: solved small bug

UCLouvain-CBIO · Oct 24, 2023 · 6ec3da8 · 6ec3da8
1 parent 74f6f77
commit 6ec3da8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ScpModel-Workflow.R b/R/ScpModel-Workflow.R
@@ -351,7 +351,7 @@ scpModelWorkflow <- function(object, formula,
 }
 
 .computeModelEffect <- function(beta, x, effect) {
-    sel <- grepl(paste0("^", effect, "\\d*"), names(beta))
+    sel <- grep(paste0("^", effect, "\\d*"), names(beta))
     if (!length(sel)){
         rown <- rownames(x)
         return(structure(rep(NA, length(rown)), names = rown))