# Rattle: Data Mining by Example # # From http://cran.r-project.org/web/packages/DAKS/vignettes/DAKS.pdf library(DAKS) head(pisa) pat <- pattern(pisa) pat sum(pat$response.patterns) apply(pisa, 2, table) mini <- iita(pisa, v = 1) corr <- iita(pisa, v = 2) orig <- iita(pisa, v = 3) summary(mini) sel_set <- ind_gen(ob_counter(pisa)) sel_set set_symdiff(orig$implications, mini$implications) set_is_proper_subset(orig$implications, mini$implications) hasse(mini$implications, 5)