options(width = 100)
library(pmartRmems) data("soil") soil$f_data
soil2 <- group_designation(soil, c("Time", "Treatment")) attr(soil2, "group_DF")
(filt <- subset_filter(soil2, grp_level_keep = c("t0_none", "t94d_aerobic"))) soil3 <- applyFilt(filt, soil2) attr(soil3, "group_DF") names(soil3$e_data) soil3$f_data
(filt <- subset_filter(soil2, grp_level_rmv = c("t94d_aerobic", "t9d_aerobic"))) soil3 <- applyFilt(filt, soil2) attr(soil3, "group_DF") names(soil3$e_data) soil3$f_data
(filt <- subset_filter(soil2, cname = "Core", level_keep = c("pf14", "pf34"))) soil3 <- applyFilt(filt, soil2) attr(soil3, "group_DF") names(soil3$e_data) soil3$f_data
(filt <- subset_filter(soil2, cname = "Treatment", level_rmv = "anaerobic")) soil3 <- applyFilt(filt, soil2) attr(soil3, "group_DF") names(soil3$e_data) soil3$f_data
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.