transect <- transect <- data.frame(
acronym = c("ABEESC", "ABIBAL", "AMMBRE", "ANTELE", "ABEESC", "ABIBAL", "AMMBRE"),
cover = c(50, 4, 20, 30, 40, 7, 60),
plot_id = c(1, 1, 1, 1, 2, 2, 2))
plot_summary(transect, key = "acronym", db = "michigan_2014",
cover_class = "percent_cover", plot_id = "plot_id")
Run the code above in your browser using DataLab