From 0f540f6ef43ebb91399de67f7728b9352cb79368 Mon Sep 17 00:00:00 2001
From: Bart-Jan van Rossum <bart-jan.vanrossum@wur.nl>
Date: Wed, 25 Sep 2024 09:23:04 +0200
Subject: [PATCH] Minor fix

---
 R/anova.wrda.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/anova.wrda.R b/R/anova.wrda.R
index 04f0784..a6bbfaf 100644
--- a/R/anova.wrda.R
+++ b/R/anova.wrda.R
@@ -81,10 +81,10 @@ anova.wrda <- function(object,
   ss <- c(sapply(out_tes, function(x) x$ss[1]), out_tes[[length(out_tes)]]$ss[2])
   if (by == "axis") {
     df <- c(rep(1, length(ss) - 1), out_tes[[length(out_tes)]]$df[2])
-    names(df) <- c(paste0("dcCA", seq_along(out_tes)), "Residual")
+    names(df) <- c(paste0("wRDA", seq_along(out_tes)), "Residual")
   } else {
     df <- out_tes[[length(out_tes)]]$df
-    names(df) <- c("dcCA", "Residual")
+    names(df) <- c("wRDA", "Residual")
   }
   fraqExplained <- c(sapply(out_tes, function(x)x$ss[1]) / sum(out_tes[[1]]$ss), NA)
   F0 <- c(sapply(out_tes, function(x)x$F0[1]), NA)