# NOT RUN {
# Import your data. For example:
data(Schneider)
# Get the parsimonious solution:
sol_yp <- eqmcc(Schneider, outcome = "EXPORT",
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut1 = .9,
include = "?",
details = TRUE, show.cases = TRUE)
# Match typical cases and individually irrelevant cases for each conjunct
# for the first term (default) of the parsimonious solution and return only the best 3 pairs:
matches.suf.typiir(results = sol_yp, outcome = "EXPORT", max_pairs=2)
# Get the parsimonious solution for the absence of the outcome:
sol_nyp <- eqmcc(Schneider, outcome = "EXPORT", neg.out = TRUE,
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut1 = .9,
include = "?",
details = TRUE, show.cases = TRUE)
# Match typical cases and individually irrelevant cases for each conjunct for
# the first term (default) of the second parsimonious solution for the absence of the outcome:
matches.suf.typiir(results = sol_nyp, outcome = "EXPORT", neg.out = TRUE, sol = 2)
# }
Run the code above in your browser using DataLab