# NOT RUN {
cd <- 1:(9) %>%
matrix(nrow = 3) %>%
as_cell_df()
cd <- sample_based_classifier(cd, attribute_sample = "1")
cd <- cd %>% dplyr::filter(value != "1")
ca <- analyze_cells(cd)
compose_cells(ca)
# }
Run the code above in your browser using DataLab