# ---- load siber ----
library(SIBER)
# ---- create community names data frame ----
# uncomment to use
# str(demo.siber.data.2)
demo.siber.data.2$group_name <- as.factor(demo.siber.data.2$group)
demo.siber.data.2$group <- as.numeric(demo.siber.data.2$group_name) |>
as.character()
demo.siber.data.2$community_names <- as.factor(demo.siber.data.2$community)
demo.siber.data.2$community <- as.numeric(demo.siber.data.2$community_names) |>
as.character()
cg_names <- demo.siber.data.2 |>
dplyr::distinct(community, group, community_names, group_name)
# ---- create comparsions ----
create_comparisons(cg_names,
comparison = "within")
Run the code above in your browser using DataLab