diff --git a/R/evaluation_withmixedeffect.R b/R/evaluation_withmixedeffect.R index 1264d4395590cae6e8ebbedb53d07dc1f5817229..b9ef48888329fc445e8e255db9c70291e3c4141e 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 253d54c6bff0ca7229d43c838ed422b7a6d8643a..372a7b16f0db579d6a0d6dd22267383e03e0bec3 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)