Add files via upload

CajoterBraak · Feb 15, 2024 · aad5ebb · aad5ebb
1 parent 20af40f
commit aad5ebb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -32,5 +32,5 @@ LazyData: true
 Imports: stats, vegan, ade4, ggplot2, gridExtra
 RoxygenNote: 7.3.0
 NeedsCompilation: no
-Packaged: 2024-02-15 11:02:46 UTC; braak008
+Packaged: 2024-02-15 11:25:30 UTC; braak008
 Author: Cajo J.F ter Braak [aut, cre] (<https://orcid.org/0000-0002-0414-8745>)
diff --git a/R/scores.dccav.R b/R/scores.dccav.R
@@ -62,8 +62,8 @@ scores.dccav <- function(x, choices=c(1,2), display= c("all"), which_cor = "in m
     species_axes <- f_trait_axes(x)
   } else if ("species_axes"%in%names(x)){c_env_normed <- x$c_env_normed; species_axes<- x$species_axes}
 
-  if (scaling == "sites")  myconst <- sqrt(nrow(out$RDAonEnv$CCA$u)*x$RDAonEnv$tot.chi) else
-    if (scaling == "species") myconst <- sqrt(nrow(out$RDAonEnv$CCA$u))
+  if (scaling == "sites")  myconst <- sqrt(nrow(x$RDAonEnv$CCA$u)*x$RDAonEnv$tot.chi) else
+    if (scaling == "species") myconst <- sqrt(nrow(x$RDAonEnv$CCA$u))
 
   if (tidy) regchoices <-  choices+3 else regchoices <- c(1:3, choices+3) # coefs only (tidy) or with mean,sd,vif
 

diff --git a/build/partial.rdb b/build/partial.rdb