Merge pull request #127 from falkcarl/master

Sample size calculations under two-stage estimation with missing data
SachaEpskamp · Feb 21, 2024 · c5158f4 · c5158f4
2 parents 8ac9319 + 91b48d5
commit c5158f4
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/defaultFunctions.R b/R/defaultFunctions.R
@@ -37,11 +37,11 @@ sampleSize_pairwise <- function(data, type = c( "pairwise_average","maximum","mi
     misMatrix <- t(xmat) %*% xmat
 
     if (type == "pairwise_maximum"){
-      sampleSize <- max(misMatrix)
+      sampleSize <- max(misMatrix[lower.tri(misMatrix)])
     } else  if (type == "pairwise_minimum"){
-      sampleSize <- min(misMatrix)
+      sampleSize <- min(misMatrix[lower.tri(misMatrix)])
     } else  if (type == "pairwise_average"){
-      sampleSize <- mean(misMatrix)
+      sampleSize <- mean(misMatrix[lower.tri(misMatrix)])
     }