Mercurial > repos > ppericard > mixomics_blocksplsda

comparison mixomics_blocksplsda_script.R @ 3:0a3c83f2197a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/bilille/galaxy-mixomics-blocksplsda commit 24b8259494ac7ab10cbd1f9ee991f455a7507590-dirty
author ppericard
date Fri, 25 Oct 2019 07:10:59 -0400
parents 6595c17673cb
children b0ab97ffc2a1
comparison
equal deleted inserted replaced
2:655d1fbcd3e6 3:0a3c83f2197a
191 block_name <- args$blocks_list[i,1] 191 block_name <- args$blocks_list[i,1]
192 # block_keep <- strtoi(args$blocks_list[i,2]) 192 # block_keep <- strtoi(args$blocks_list[i,2])
193 # block_data_matrix_filename <- args$blocks_list[i,3] 193 # block_data_matrix_filename <- args$blocks_list[i,3]
194 block_meta_var <- args$blocks_list[i,4] 194 block_meta_var <- args$blocks_list[i,4]
195 195
196 print(sprintf("Saving block %s output metavar", block_name))
197
196 meta_variable <- mixomics_result$loadings[[block_name]] 198 meta_variable <- mixomics_result$loadings[[block_name]]
197 # print(head(meta_variable)) 199 # print(head(meta_variable))
198 200
199 # Format the column names to add the block name and replace spaces 201 # Format the column names to add the block name and replace spaces
200 colnames(meta_variable) <- paste("block.splsda_loadings", gsub(" ", "_", colnames(meta_variable)), sep = "_") 202 colnames(meta_variable) <- paste("block.splsda_loadings", gsub(" ", "_", colnames(meta_variable)), sep = "_")