# run the example only if we have the package installed
if (requireNamespace("LEA", quietly = TRUE)) {
example_gt <- load_example_gt("gen_tbl")
# Create a gt_admix object
admix_obj <- example_gt %>% gt_snmf(k = 1:3, project = "force")
# Create a second gt_admix object
admix_obj2 <- example_gt %>% gt_snmf(k = 2:4, project = "force")
# Combine the two gt_admix objects
new_admix_obj <- c(admix_obj, admix_obj2)
summary(new_admix_obj)
}
Run the code above in your browser using DataLab