--- a/additional_functions_block_splsda.R	Tue Jun 23 19:57:35 2020 -0400
+++ b/additional_functions_block_splsda.R	Thu Oct 15 12:22:25 2020 +0000
@@ -1,55 +1,3 @@
-#' @title Check if a block contains missing values
-#' @description Check if a block contains missing values
-#' @param list_X type : list of matrix. This list is used to perform the data integration.
-#' @details This function checks if a block contains missing values.
-#' @return  type : boolean. If at least one block contains missing values, 
-#' this function returns TRUE, otherwise this function returns FALSE.
-#' @examples 
-#' X1 = matrix(1:9, nrow = 3, ncol = 3)
-#' X2 = matrix(10:18, nrow = 3, ncol = 3)
-#' list_X = list()
-#' list_X[[1]] = X1
-#' list_X[[2]] = X2
-#' names(list_X) = c("X1", "X2")
-#' boolean_block_missing_values = blockMissingValues(list_X)
-#' @export
-blockMissingValues <-function(list_X)
-{
-  name_blocks = names(list_X)
-  name_blocks_missing_values = c()
-  boolean_block_missing_values = FALSE 
-  
-  for(i in 1:length(list_X))
-  {
-    X_i = list_X[[i]]
-    name_block_i = name_blocks[i]
-    
-    vec = sapply(1:dim(X_i)[2], FUN = function(j){
-      res = any(is.na(X_i[, j]))
-      
-      return(res)
-    })
-    
-    if(any(vec))
-    {
-      name_blocks_missing_values = c(name_blocks_missing_values, name_block_i)
-      
-    }
-    
-  } # End for(i in 1:length(list_X)).
-  
-  if(length(name_blocks_missing_values) != 0)
-  {
-    stop(paste("The data integration can not be performed if a block contains missing values  : ", paste(name_blocks_missing_values, collapse = ", "), " contains missing values. "))
-    boolean_block_missing_values = TRUE
-    
-  }
-  
-  return(boolean_block_missing_values)  
-  
-}
-
-
 #' @title Determination of selected variables for all components
 #' @description The function unionSelectBlockVariables determines, for each block, the selected block variables
 #' for all components.