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))
physiog_summary(transect, key = "acronym", db = "michigan_2014", plot_id = "plot_id")
#can also include bare ground and unvegetated water
transect_unveg <- data.frame(acronym = c("GROUND", "ABEESC", "ABIBAL", "AMMBRE",
"ANTELE", "WATER", "GROUND", "ABEESC", "ABIBAL", "AMMBRE"),
cover = c(60, 50, 4, 20, 30, 20, 20, 40, 7, 60),
plot_id = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2))
physiog_summary(transect_unveg, key = "acronym", db = "michigan_2014",
plot_id = "plot_id")
Run the code above in your browser using DataLab