diff --git a/R/decostand.R b/R/decostand.R
index 19080b901..3d193d7de 100644
--- a/R/decostand.R
+++ b/R/decostand.R
@@ -162,7 +162,7 @@
     # the sample-specific mean value and subtract every entries'
     # value with that.
     clog <- log(x)
-    means <- rowMeans(clog)
+    means <- rowMeans(clog, na.rm = na.rm)
     clog <- clog - means
     attr(clog, "parameters") <- list("means" = means,
                                      "pseudocount" = pseudocount)