fix: missing Nstudies

arkhn · Sep 8, 2022 · 6808a73 · 6808a73
1 parent 85a17f4
commit 6808a73
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/R/ds.boundedCovarianceDP.R b/R/ds.boundedCovarianceDP.R
@@ -25,6 +25,7 @@ ds.boundedCovarianceDP <- function(x, y, epsilon, x_min, x_max, y_min, y_max, ty
     stop("Type must be one of 'both', 'split' or 'combine'")
   }
 
+  Nstudies <- length(datasources)
   covariance.split <- callAggregationMethod(datasources, paste0("boundedCovarianceDP(", x, ", ", y,  ", ", epsilon, ", ", x_min, ", ", x_max, ", ", y_min, ", ", y_max, ")"))
 
   if (type == "both") stop("Combine type not implemented") 

diff --git a/R/ds.boundedStandardDeviationDP.R b/R/ds.boundedStandardDeviationDP.R
@@ -22,6 +22,7 @@ ds.boundedStandardDeviationDP <- function(input_data, epsilon, lower_bound, uppe
     stop("Type must be one of 'both', 'split' or 'combine'")
   }
 
+  Nstudies <- length(datasources)
   standardDeviation.split <- callAggregationMethod(datasources, paste0("boundedStandardDeviationDP(", input_data, ", ", epsilon, ", ", lower_bound, ", ", upper_bound, ")"))  
 
   return(standardDeviation.split)

diff --git a/R/ds.medianDP.R b/R/ds.medianDP.R
@@ -22,6 +22,7 @@ ds.medianDP <- function(input_data, epsilon, lower_bound, upper_bound, type="spl
     stop("Type must be one of 'both', 'split' or 'combine'")
   }
 
+  Nstudies <- length(datasources)
   median.split <- callAggregationMethod(datasources, paste0("medianDP(", input_data, ", ", epsilon, ", ", lower_bound, ", ", upper_bound, ")"))
 
   if (type == "both") stop("Combine type not implemented")