data("soilrep")
sord = ordinate(soilrep, "PCoA", "bray")
# Evaluate axes with scree plot
plot_scree(sord)
# Gap Statistic
gs = gapstat_ord(sord, axes=1:3, verbose=FALSE)
# plot_ordination(soilrep, sord, color="Treatment")
plot_clusgap(gs)
print(gs, method="Tibs2001SEmax")
Run the code above in your browser using DataLab