if (require("QCA")) {
# in Ragin's (1987) book, the equation E = SG + LW is the result
# of the Boolean minimization for the ethnic political mobilization.
# intersecting the reactive ethnicity perspective (R = lw)
# with the equation E (page 144)
intersection("lw", "SG + LW", snames = "S, L, W, G")
# [1] "SlwG"
# resources for size and wealth (C = SW) with E (page 145)
intersection("SW", "SG + LW", snames = "S, L, W, G")
# [1] "SWG + SLW"
# and factorized
factorize(intersection("SW", "SG + LW", snames = "S, L, W, G"))
# F1: SW(G + L)
# developmental perspective (D = Lg) and E (page 146)
intersection("Lg", "SG + LW", snames = "S, L, W, G")
# [1] "LWg"
# subnations that exhibit ethic political mobilization (E) but were
# not hypothesized by any of the three theories (page 147)
# ~H = ~(lw + SW + Lg)
intersection(deMorgan("lw + SW + Lg"), "SG + LW", snames = "S, L, W, G")
# [1] "sLWG + SLwG"
}
Run the code above in your browser using DataLab