# NOT RUN {
pa_fpath <- system.file("extdata", "HMP_even//allReads-pangia.list.txt", package="MetaComp")
pangia_assignment = load_edge_assignment(pa_fpath, type = "pangia")
table(pangia_assignment$LEVEL)
pangia_assignment[pangia_assignment$LEVEL == "phylum",]
# }
Run the code above in your browser using DataLab