Mercurial > repos > ppericard > mixomics_blocksplsda

comparison mixomics_blocksplsda_script.R @ 4:b0ab97ffc2a1 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 0bf5c0745f406f2eca9c708a062c975b1f7ea386
author ppericard
date Mon, 09 Mar 2020 11:53:32 -0400
parents 0a3c83f2197a
children 1ee8d2c20c0a
comparison
equal deleted inserted replaced
3:0a3c83f2197a 4:b0ab97ffc2a1
139 ################### 139 ###################
140 ## Main function ## 140 ## Main function ##
141 ################### 141 ###################
142 142
143 mixomics_result <- block.splsda(X = list_X, 143 mixomics_result <- block.splsda(X = list_X,
144 Y = Y, 144 Y = Y,
145 ncomp = args$ncomp, 145 ncomp = args$ncomp,
146 keepX = keepX, 146 keepX = keepX,
147 design = design, 147 design = design,
148 scheme = args$scheme, 148 scheme = args$scheme,
149 mode = args$mode, 149 mode = args$mode,
150 scale = args$scale, 150 scale = args$scale,
151 init = args$init, 151 init = args$init,
152 tol = args$tol, 152 tol = args$tol,
153 max.iter = args$maxiter, 153 max.iter = args$maxiter,
154 near.zero.var = args$nearzerovar, 154 near.zero.var = args$nearzerovar,
155 all.outputs = TRUE) 155 all.outputs = TRUE)
156 156
157 print("Block.splsda object:") 157 print("Block.splsda object:")
158 print(mixomics_result) 158 print(mixomics_result)
159 159
160 ## Save output Rdata file 160 ## Save output Rdata file