nem <- read_nem(tab = easynem_example("nemtab1.csv"),
tax = easynem_example("nemtax1.csv"),
meta = easynem_example("nemmeta1.csv"))
nem_plot <- nem |> calc_compare2(.group1 = con_crop,
.group2 = season, y = pH, method = LSD2) |>
nem_plot(type2 = 2)
nem_plot
nem_plot <- nem |> calc_compare2(.group1 = con_crop,
.group2 = season, y = pH, method = HSD2) |>
nem_plot(type1 = 2, type2 = 2, add = "mean_sd")
nem_plot
Run the code above in your browser using DataLab