# 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 deviant coverage cases and individually irrelevant cases for the parsimonious solution:
matches.suf.dcviir(results = sol_yp, outcome = "EXPORT")
# Match deviant coverage cases and individually irrelevant cases for the parsimonious solution
# and return only the best 3 pairs:
matches.suf.dcviir(results = sol_yp, outcome = "EXPORT", max_pairs=3)
# Match deviant coverage cases and individually irrelevant cases for the intermediate solution:
matches.suf.dcviir(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 deviant coverage cases and individually irrelevant cases for
# the second parsimonious solution for the absence of the outcome:
matches.suf.dcviir(results = sol_nyp, outcome = "EXPORT", neg.out = TRUE, sol = 2)
# }
Run the code above in your browser using DataLab