Mercurial > repos > iuc > ampvis2_octave
comparison test-data/generate.R @ 0:b7f7d0c6d579 draft
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/ampvis2 commit 7c0ecbffdb5e993f5af7e3b52c424c2761fb91d3"
| author | iuc |
|---|---|
| date | Mon, 04 Apr 2022 10:27:22 +0000 |
| parents | |
| children | 7b81221e7925 |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:b7f7d0c6d579 |
|---|---|
| 1 library(ampvis2) | |
| 2 | |
| 3 # subset taxa using 200 random OTUs | |
| 4 aalborgwwtps <- amp_subset_taxa(AalborgWWTPs, tax_vector = sample(AalborgWWTPs$tax$OTU, 200)) | |
| 5 | |
| 6 ape::write.tree(aalborgwwtps$tree, "AalborgWWTPs.nwk") | |
| 7 amp_export_fasta(aalborgwwtps, "AalborgWWTPs.fa", tax = F) | |
| 8 amp_export_otutable(aalborgwwtps, "AalborgWWTPs.otu") | |
| 9 write.table(aalborgwwtps$tax, file = "AalborgWWTPs.tax", quote = F, sep = "\t", row.names = F) | |
| 10 write.table(aalborgwwtps$metadata, file = "AalborgWWTPs.tsv", quote = F, sep = "\t") |