fix problem reported by JG, error in linfct, because one factor level…

… is a substrict of a different factor level.
fgcz · May 15, 2024 · 1394746 · 1394746
1 parent ddc38c2
commit 1394746
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/tidyMS_R6_Modelling.R b/R/tidyMS_R6_Modelling.R
@@ -521,7 +521,8 @@ plot_lmer_model_and_data <- function(m, proteinID, legend.position = "none"){
   mm[,1] <- 1
   coefi <- coeffs[-1]
   for (i in seq_along(coefi)) {
-    positionIDX <- grep(names(coefi)[i], inter)
+    positionIDX <- which(inter %in% names(coefi)[i])
+    # positionIDX <- grep(names(coefi)[i], inter)
     mm[positionIDX, i + 1 ] <- 1
   }
   return(list(mm = mm, coeffs = coeffs))