# NOT RUN {
### First prepare an NMDS object
x <- bot %>% efourier %>% NMDS
plot_NMDS(x)
plot_NMDS(x, ~type) %>% layer_stars() %>% layer_labelpoints()
### Same on MDS object
x <- bot %>% efourier %>% MDS
plot_MDS(x)
plot_MDS(x, ~type) %>% layer_stars() %>% layer_labelpoints()
# }
Run the code above in your browser using DataLab