.

CDCgov · Feb 29, 2024 · e449c53 · e449c53
1 parent d9fa92c
commit e449c53
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/z_deffK.R b/R/z_deffK.R
@@ -15,8 +15,10 @@ deffK = function(prob)
 
   # if (any(w <= 0))
   #   warning("Some weights are less than or equal to 0.\n")
-  n <- length(w)
-  ret = 1 + sum((w - mean(w))^2)/n/mean(w)^2
-  assert_that(all(ret > 0))
+  # n <- length(w)
+  # ret = 1 + sum((w - mean(w))^2)/n/mean(w)^2
+  ret = 1 + mean((w - mean(w))^2)/mean(w)^2
+  # assert_that(all(ret > 0))
+  assert_that(all(ret >= 1)) # Second term >= 0
   ret
 }
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,7 +4,7 @@ pkgdown_sha: ~
 articles:
   Example-National-Ambulatory-Medical-Care-Survey-NAMCS-tables: Example-National-Ambulatory-Medical-Care-Survey-NAMCS-tables.html
   surveytable: surveytable.html
-last_built: 2024-02-29T02:56Z
+last_built: 2024-02-29T15:32Z
 urls:
   reference: https://cdcgov.github.io/surveytable/reference
   article: https://cdcgov.github.io/surveytable/articles