# simple PI chart, formatted using internal function prettyTable();
PI <- c("A", "B", "c")
CO <- c("ABC", "Abc", "AbC", "aBc")
chart <- demoChart(PI, CO)
prettyTable(chart)
# more complex example
PI <- c("AB", "BC", "Ac", "aC", "abd", "bcd")
CO <- c("ABCD", "ABCd", "ABcD", "ABcd", "AbcD", "Abcd",
"aBCD", "aBCd", "abCD", "abCd", "abcd")
chart <- demoChart(PI, CO)
prettyTable(chart)
# different intersection operators
PI <- c("AZ", "BY", "~CX")
CO <- c("AZ*BY*CX", "AZ*~BY*~CX", "AZ*~BY*CX", "~AZ*BY*~CX")
prettyTable(demoChart(PI, CO, prod.split = "*"))
CO <- gsub("*", "&", CO, fixed = TRUE)
prettyTable(demoChart(PI, CO, prod.split = "&"))
Run the code above in your browser using DataLab