## Not run:
if (requireNamespace("microeco", quietly = TRUE)) {
data("dataset", package = "microeco")
## convert microeco object to LorMe format
dataset_obj <- Trans_from_microeco(dataset, outputtax = "standard")
## specify experimental design
dataset_obj_plan <- object_config(dataset_obj,
treat_location = 4)
## generate community-structure PCoA plot (Genus level)
community_structure <- structure_plot(dataset_obj_plan, taxlevel = "Genus")
community_structure$PCoA_Plot
}
Run the code above in your browser using DataLab