nem <- read_nem2(tab = nemtab, tax = nemtax, meta = nemmeta)
nem_plot <- nem |>
calc_alpha() |>
calc_nemindex() |>
calc_lm(group = Treatments,
x = Chao1,
y = TotalBiomass) |>
nem_plot()
nem_plot
Run the code above in your browser using DataLab