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