# NOT RUN {
# Generate the truth table considered in Schwender (2007).
mat <- matrix(c(rep(0, 4), rep(1, 6),
rep(0, 6), rep(1, 4),
0, 0, 1, 1, 0, 1, 0, 0, 1, 1,
0, 1, 0, 1, 1, 1, 0, 1, 0, 1), ncol=4)
colnames(mat) <- paste("X", 1:4, sep="")
# Computing the minimal disjunctive normal form.
minDNF(mat)
# }
Run the code above in your browser using DataLab