# 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)
# Get the intermediate solution:
sol_yi <- eqmcc(Schneider, outcome = "EXPORT",
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut1 = .9,
include = "?",
details = TRUE, show.cases = TRUE, dir.exp = c(0,0,0,0,0,0))
# Match typical cases for each conjunct for the second term of the parsimonious solution:
matches.suf.typtyp(results = sol_yp, outcome = "EXPORT", term = 2)
# Match typical cases for each conjunct for the first term (default) of
# the parsimonious solution and return only the best 3 pairs:
matches.suf.typtyp(results = sol_yp, outcome = "EXPORT", max_pairs=3)
# Match typical cases for each conjunct for the first term (default)
# of the intermediate solution:
matches.suf.typtyp(results = sol_yi, outcome = "EXPORT", intermed = TRUE)
# 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 for each conjunct for the first term (default)
# of the second parsimonious solution for the absence of the outcome:
matches.suf.typtyp(results = sol_nyp, outcome = "EXPORT", neg.out = TRUE, sol = 2)
# }
Run the code above in your browser using DataLab