# Import your data. For example:
data(SCHF)
# Get the parsimonious solution:
sol_yp <- minimize(SCHF, outcome = "EXPORT",
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut = .9,
include = "?",
details = TRUE, show.cases = TRUE)
# Get the parsimonious solution for the absence of the outcome:
sol_nyp <- minimize(SCHF, outcome = "EXPORT", neg.out = TRUE,
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut = .9,
include = "?",
details = TRUE, show.cases = TRUE)
# Get the contradictory simplofying assumptions:
LR.intersect(sol_yp, sol_nyp)
Run the code above in your browser using DataLab