Mercurial > repos > ppericard > viscorvar
diff additional_functions_block_splsda.R @ 1:e93350dc99f1 draft
"planemo upload for repository https://gitlab.com/bilille/galaxy-viscorvar commit 1eda261d4fe137d6e8806b0c6af7eaf12d11ac95"
author | ppericard |
---|---|
date | Thu, 15 Oct 2020 12:22:25 +0000 |
parents | d0b77b926863 |
children |
line wrap: on
line diff
--- 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.