Mercurial > repos > ppericard > mixomics_blocksplsda
comparison mixomics_blocksplsda_script.R @ 4:b0ab97ffc2a1 draft
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 |