From 6676f52ac5aad88549e1d718311793982e13e7bf Mon Sep 17 00:00:00 2001
From: aduvermy <arnaud.duvermy@ens-lyon.fr>
Date: Wed, 3 Apr 2024 17:15:06 +0200
Subject: [PATCH] sd_env and sd_intercept splitted in description
Former-commit-id: 74149c07851741e031c7388ba64b982d3ee2d23c
Former-commit-id: 5d66018f0f650598068896ed07b4fe8452863801
Former-commit-id: b3e1ec6e4c0958f672ae6dd6f74ef8d98e6f00c2
---
R/evaluation_withmixedeffect.R | 2 +-
dev/flat_full.Rmd | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/evaluation_withmixedeffect.R b/R/evaluation_withmixedeffect.R
index 1264d43..b9ef488 100644
--- a/R/evaluation_withmixedeffect.R
+++ b/R/evaluation_withmixedeffect.R
@@ -219,7 +219,7 @@ calculate_actualMixed <- function(data_gene, labelRef_InCategoricalVar, labelOth
res <- as.data.frame(actual)
res$term <- rownames(res)
rownames(res) <- NULL
- res$description <- sub("_.*", "", gsub("\\d+$", "" , res$term))
+ res$description <- gsub("\\d+$", "" , res$term)
return(res)
diff --git a/dev/flat_full.Rmd b/dev/flat_full.Rmd
index 253d54c..372a7b1 100644
--- a/dev/flat_full.Rmd
+++ b/dev/flat_full.Rmd
@@ -9415,7 +9415,7 @@ calculate_actualMixed <- function(data_gene, labelRef_InCategoricalVar, labelOth
res <- as.data.frame(actual)
res$term <- rownames(res)
rownames(res) <- NULL
- res$description <- sub("_.*", "", gsub("\\d+$", "" , res$term))
+ res$description <- gsub("\\d+$", "" , res$term)
return(res)
--
GitLab