# 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))
# Return uniquely typical cases for sufficiency for the parsimonious solution:
cases.suf.typ.unique(results = sol_yp, outcome = "EXPORT")
# Return uniquely typical cases for sufficiency for the intermediate solution:
cases.suf.typ.unique(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)
# Return uniquely typical cases for sufficiency for the second parsimonious solution
# for the absence of the outcome:
cases.suf.typ.unique(results = sol_nyp, outcome = "EXPORT", neg.out = TRUE, sol = 2)
# }
Run the code above in your browser using DataLab