Add additional parameter validation to median_normalization()

const-ae · Aug 13, 2019 · 8720964 · 8720964
1 parent 35eb43b
commit 8720964
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/normalization.R b/R/normalization.R
@@ -35,7 +35,15 @@ median_normalization <- function(X, spike_in_rows = NULL){
       spike_in_rows <- seq_len(nrow(X))
     }else if(! is.numeric(spike_in_rows) && ! is.logical(spike_in_rows)){
       stop("spike_in_rows must either be a numeric or a logical vector")
+    }else if(is.logical(spike_in_rows)){
+      if(length(spike_in_rows) != nrow(X)){
+        stop("The spike_in_rows logical vector must have one entry for each row.")
+      }else if(all(spike_in_rows == FALSE)){
+        stop("Not all elements of the spike_in_rows vector can be FALSE.")
+      }
     }
+
+
     Xnorm <- X
     for(idx in seq_len(ncol(X))){
       Xnorm[, idx] <- X[, idx, drop=FALSE] -