Mercurial > repos > blankenberglab > gpca
changeset 2:4865e7f4e9c5 draft
planemo upload for repository https://github.com/blankenberglab/galaxy-tools-blankenberg/tree/master/tools/r-gpca commit b72f398663cc133523cae0f5d7db2af1b4312f7a
| author | blankenberglab |
|---|---|
| date | Tue, 27 Nov 2018 12:29:58 -0500 |
| parents | d93629e79f5e |
| children | 8def7dda3bee |
| files | r-gpca.R |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/r-gpca.R Tue Nov 27 11:02:46 2018 -0500 +++ b/r-gpca.R Tue Nov 27 12:29:58 2018 -0500 @@ -110,13 +110,14 @@ data<-t(as.matrix(read.delim(opt$data, row.names=1, header=TRUE, sep="\t"))) batch<-as.matrix(read.delim(opt$batch, header=TRUE, row.names=1, sep="\t")) -write('<html><body><a name="top"></a>',file = opt$html_outfile, append=TRUE) write('#Batch\tDelta\tP-value\tCumulative Variance',file = opt$numbers_outfile, append=TRUE) -write('<div align="left><ul id =""><p><b>Table of Contents</b></p></ul></div>', file=opt$html_outfile, append=TRUE) +write('<html><body><div align="left" id="top"><p><h1>Table of Contents</h1><ul>',file = opt$html_outfile, append=TRUE) for (row in 1:nrow(batch)) { write(paste0('<li><a href="#',row.names(batch)[row],'">',row.names(batch)[row],'</a></li>'), file=opt$html_outfile, append=TRUE) } +write('</ul></p></div>', file=opt$html_outfile, append=TRUE) + for (row in 1:nrow(batch)) { batch1<-as.numeric(factor(batch[row,]))