# NOT RUN {
pa_fpath <- system.file("extdata", "HMP_even//allReads-pangia.list.txt", package="MetaComp")
pangia_assignment = load_edge_assignment(pa_fpath, type = "pangia")
plot_edge_assignment(pangia_assignment, "phylum", "Pangia", "HMP Even",
file.path(tempdir(), "assignment.pdf"))
# }
Run the code above in your browser using DataLab