# NOT RUN {
# Import your data. For example:
data(Schneider)
# 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))
# Specify the theory. Let's assume the theory says that the
# absence of EMP and the presence of MA is sufficient for EXPORT:
t<-"~EMP*MA"
# Get membership of cases in the intersections between theory and
# the second intermediate solution and place it in an object:
INT <- theory.evaluation(theory = t, empirics = sol_yi, outcome = "EXPORT",
intermed = TRUE, sol = 2)
# Get the names of cases in the intersections between theory and the empirical solution
# using the output of the theory.evaluation function:
cases.theory.evaluation(INT)
# }
Run the code above in your browser using DataLab