if (require("QCA")) {
# -----
# Cebotari & Vink (2013, 2015)
data(CVF)
# DEMOC*GEOCON*NATPRIDE
fuzzyand(CVF$DEMOC, CVF$GEOCON, CVF$NATPRIDE)
# same thing with
fuzzyand(CVF[, c(1,3,5)])
# DEMOC*geocon*NATPRIDE
fa <- fuzzyand(CVF$DEMOC, 1 - CVF$GEOCON, CVF$NATPRIDE)
fa
attr(fa, "name")
# ETHFRACT + POLDIS
fuzzyor(CVF$ETHFRACT, CVF$POLDIS)
# same thing with
fuzzyor(CVF[, c(2,4)])
# ETHFRACT + poldis
fo <- fuzzyor(CVF$ETHFRACT, 1 - CVF$POLDIS)
fo
attr(fo, "name")
}
Run the code above in your browser using DataLab