Update SampleSize.R

Author: johamunoz

R/SampleSize.R

@@ -89,7 +89,7 @@
 #'
 #' @export
 sampleSize <- function(mu_list, varcov_list = NA, sigma_list = NA, cor_mat = NA,
-                       sigmaB =NA, Eper, Eco, rho = 0,
+                       sigmaB =NA, Eper=c(0, 0), Eco=c(0, 0), rho = 0,
                     TAR=NA,
                     arm_names=NA,
                     ynames_list=NA,
@@ -327,7 +327,9 @@ sampleSize <- function(mu_list, varcov_list = NA, sigma_list = NA, cor_mat = NA,
   # list equivalence boundaries
 
   # check if list or equitol vector are not provided
-  if (all(all(is.na(lequi.tol)),all(is.na(uequi.tol)),all(is.na(list_lequi.tol)),all(is.na(list_uequi.tol)))){
+  if ((all(is.na(lequi.tol))&all(is.na(uequi.tol)))&
+      (all(is.na(list_lequi.tol))&all(is.na(list_uequi.tol)))
+      ){
     warning("No boundaries were provided so standard values will be used")
 
   }
@@ -386,6 +388,14 @@ sampleSize <- function(mu_list, varcov_list = NA, sigma_list = NA, cor_mat = NA,
 
   }
 
+
+  for (i in 1:length(list_comparator)){
+    muend <-  mu_list[[list_comparator[[i]][[2]]]]
+    if (is.null(names(list_lequi.tol[[i]]))|is.null(names(list_uequi.tol[[i]]))){
+      names(list_lequi.tol[[i]])<- names(list_uequi.tol[[i]])<-colnames(muend)
+    }
+  }
+
   # check list equitol
 
   for (i in 1:length(list_comparator)){