tab <- tplyr_table(iris, Species)
# A custom group
add_treat_grps(tab, "Not Setosa" = c("versicolor", "virginica"))
# Add a total group
add_total_group(tab)
treat_grps(tab)
# Returns:
# $`Not Setosa`
#[1] "versicolor" "virginica"
#
#$Total
#[1] "setosa" "versicolor" "virginica"
Run the code above in your browser using DataLab