fix testing nEff being at least one

solves EarthyScience#32
donglx2018 · May 10, 2019 · f5b8062 · f5b8062
1 parent 76a907e
commit f5b8062
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 2 deletions.
diff --git a/vignettes/aggUncertainty.Rmd b/vignettes/aggUncertainty.Rmd
@@ -183,7 +183,7 @@ aggDay <- results %>% group_by(DoY) %>%
     , nEff = computeEffectiveNumObs(
        resid, effAcf = !!autoCorr, na.rm = TRUE)
     , NEE = mean(NEE_uStar_f, na.rm = TRUE)
-    , sdNEE = if (nEff == 0) NA_real_ else sqrt(
+    , sdNEE = if (nEff <= 1) NA_real_ else sqrt(
       mean(NEE_uStar_fsd^2, na.rm = TRUE) / (nEff - 1)) 
     , sdNEEuncorr = if (nRec == 0) NA_real_ else sqrt(
        mean(NEE_uStar_fsd^2, na.rm = TRUE) / (nRec - 1))

diff --git a/vignettes/aggUncertainty.md b/vignettes/aggUncertainty.md
@@ -147,7 +147,7 @@ of each day.
         , nEff = computeEffectiveNumObs(
            resid, effAcf = !!autoCorr, na.rm = TRUE)
         , NEE = mean(NEE_uStar_f, na.rm = TRUE)
-        , sdNEE = if (nEff == 0) NA_real_ else sqrt(
+        , sdNEE = if (nEff <= 1) NA_real_ else sqrt(
           mean(NEE_uStar_fsd^2, na.rm = TRUE) / (nEff - 1)) 
         , sdNEEuncorr = if (nRec == 0) NA_real_ else sqrt(
            mean(NEE_uStar_fsd^2, na.rm = TRUE) / (nRec - 1))

diff --git a/vignettes/aggUncertainty_files/figure-markdown_strict/uncBand-1.png b/vignettes/aggUncertainty_files/figure-markdown_strict/uncBand-1.png
diff --git a/vignettes/aggUncertainty_files/figure-markdown_strict/unnamed-chunk-3-1.png b/vignettes/aggUncertainty_files/figure-markdown_strict/unnamed-chunk-3-1.png
diff --git a/vignettes/aggUncertainty_files/figure-markdown_strict/unnamed-chunk-6-1.png b/vignettes/aggUncertainty_files/figure-markdown_strict/unnamed-chunk-6-1.png