Merge pull request #140 from timcadman/dev

fix: corrected formula for pooled se
timcadman · Oct 14, 2024 · 49840e6 · 49840e6
2 parents b097c5e + ccc4dd1
commit 49840e6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dsHelper
 Type: Package
 Title: Helper Functions for Use with 'DataSHIELD'
-Version: 1.5
+Version: 1.5.1
 Description: Often we need to automate things with 'DataSHIELD'. These functions help to do that.
 Authors@R: 
   c(person(given= "Tim", 

diff --git a/R/pool.R b/R/pool.R
@@ -208,7 +208,7 @@ rubinBetweenVar <- function(coefs, means, m) {
 #'
 #' @noRd
 rubinPooledSe <- function(within_var, between_var, m) {
-  return(within_var + between_var + (between_var / m))
+  return(sqrt(within_var + between_var + (between_var / m)))
 }
 
 #' Calculate the Rubin's Z statistic.