Mercurial > repos > artbio > high_dimensions_visualisation
comparison high_dim_visu.R @ 1:5e4ec9397528 draft default tip
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_high_dimension_visualization commit 70c7abb20f76651e61325e3aa90809f6874f8b85
| author | artbio |
|---|---|
| date | Mon, 24 Jun 2019 07:16:30 -0400 |
| parents | 71e3b222516a |
| children |
comparison
equal
deleted
inserted
replaced
| 0:71e3b222516a | 1:5e4ec9397528 |
|---|---|
| 226 header = TRUE | 226 header = TRUE |
| 227 ) | 227 ) |
| 228 rownames(contrasting_factor) <- contrasting_factor[,1] | 228 rownames(contrasting_factor) <- contrasting_factor[,1] |
| 229 contrasting_factor <- contrasting_factor[colnames(data),] | 229 contrasting_factor <- contrasting_factor[colnames(data),] |
| 230 colnames(contrasting_factor) <- c("id","factor") | 230 colnames(contrasting_factor) <- c("id","factor") |
| 231 contrasting_factor$factor <- as.factor(contrasting_factor$factor) | |
| 231 factorColors <- | 232 factorColors <- |
| 232 with(contrasting_factor, | 233 with(contrasting_factor, |
| 233 data.frame(factor = levels(factor), | 234 data.frame(factor = levels(factor), |
| 234 data.frame(factor = levels(factor), | 235 data.frame(factor = levels(factor), |
| 235 color = I(brewer.pal(nlevels(factor), name = 'Paired')))) | 236 color = I(brewer.pal(nlevels(factor), name = 'Paired')))) |