# Import your data. For example:
data(SCHF)
## SUFFICIENCY SMMR examples:
# Get the parsimonious solution:
sol_yp <- minimize(SCHF, outcome = "EXPORT",
conditions = c("EMP","BARGAIN","UNI","OCCUP","STOCK", "MA"),
incl.cut = .9,
include = "?",
details = TRUE, show.cases = TRUE)
# Get typical cases for each focal conjunct in the third term of the parsimonious solution:
smmr(results = sol_yp, outcome = "EXPORT", match=FALSE, cases=2, term = 3)
# Get typical cases for each focal conjunct in the third term of the parsimonious solution
# and specifying STOCK as a necessary condition:
smmr(results = sol_yp, outcome = "EXPORT",
match=FALSE, cases=2, term = 3, nec.cond="STOCK")
# Get matching typical-typical cases for the second term of the parsimonious solution:
smmr(results = sol_yp, outcome = "EXPORT", match=TRUE, cases=1, term = 2)
# Get matching typical-DCN cases:
smmr(results = sol_yp, outcome = "EXPORT", match=TRUE, cases=3)
## NECESSITY SMMR examples:
# Imagine you found condition "STOCK + MA" is nececssary for outcome "EXPORT".
# Get typical cases for each disjunct of the necessary condition:
smmr(results = sol_yp, outcome = "EXPORT", match=FALSE, cases=1,
nec.cond = "STOCK+MA", necessity = TRUE)
# Get typical - deviant relevance cases for each disjunct of the necessary condition:
smmr(results = sol_yp, outcome = "EXPORT", match=TRUE, cases=1,
nec.cond = "STOCK+MA", necessity = TRUE)
Run the code above in your browser using DataLab