bugfix in hurdle_impute()

inbo · Sep 12, 2024 · 6135636 · 6135636
1 parent 3c8eb77
commit 6135636
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/hurdle_impute.R b/R/hurdle_impute.R
@@ -81,7 +81,7 @@ hurdle_impute <- function(presence, count) {
       ncol = ncol(count_resp)
     )
     ren_count <- count@Extra[, extra_count[extra_count %in% extra_presence]]
-    colnames(ren_count) <- sprintf("count_", colnames(ren_count))
+    colnames(ren_count) <- sprintf("count_%s", colnames(ren_count))
     cv_extra <- cbind(
       count@Extra[, common],
       count@Extra[, extra_count[!extra_count %in% extra_presence]], ren_count