QCA Analyses
Tobias Weise
In the following appendix, I present the R Code to reproduce the truth tables and analyses in Chapter 5. I do not print the truth tables, here, as they are already included in the chapter. In addition, I add some illustrations and graphs for the QCA analyses. Also, I show the results of some individual analyses that I do not present in chapter 5. They are for illustration purposes.
First, I load the required R packages1:
library(QCA)
library(QCA3)
library(wordcloud)
library(SetMethods)
library(car)
library(VennDiagram)Next, I import the raw data and create an empty data-set for the QCA data:
data <- read.csv("../data/raw-data.csv")
data$X <- NULL # clean up import artifact
data$cases <- paste(data$IO, data$Year, sep = "") # name cases
data_qca <- as.data.frame(matrix(0, ncol = 0, nrow = 70))
data_qca$cases <- data$cases
# add case names as row names
row.names(data_qca) <- data_qca$casesCalibration
The following code-blocks show the steps I took to calibrate the data-set. Again, the detailed description is included in Chapter 5.
Talk
thr1 <- 1
data_qca$TALK.Part <- c(thr1, 1, 1, thr1, thr1, rep(0, 31), rep(thr1, 5),
1,thr1, rep(1, 3), rep(thr1, 3), 1, rep(thr1, 4), 1, 0, 1, 1,
rep(thr1, 10), 1, 1)
data_qca$TALK.Trans <- c(rep(0, 36), rep(thr1, 9), 1, rep(thr1, 8), 1, 0,
rep(thr1, 2), 1, thr1, thr1, 1, rep(thr1, 7), 1)Decision
thr1 <- 0
thr2 <- 1
data_qca$DEC.Part <- c(rep(0, 15), rep(1, 4), rep(0, 36), rep(1, 7),
rep(0,8))
data_qca$DEC.Trans <- c(rep(0, 29), rep(thr1, 7), rep(thr2, 7),
rep(1, 12), 0, thr1, rep(thr2, 11), rep(1, 2))Action
data_qca$ACT.Part.1 <- c(0, rep(1, 7), rep(0, 26), rep(1, 21), rep(1, 4),
rep(0, 8), rep(1, 3))
data_qca$ACT.Part.2 <- c(rep(0, 51), rep(1, 4), rep(0, 12), rep(1, 3))
data_qca$ACT.Part.4 <- c(rep(0, 25), rep(1, 13), rep(0, 3), rep(1, 5),
rep(0, 2), rep(1, 7), rep(0, 7), rep(1, 3),0, 0, 1, 1, 1)
data_qca$ACT.Trans <- c(rep(0, 4), rep(1, 3), rep(0, 38), rep(1, 10),
rep(0, 7), rep(1, 4), rep(0, 4))Resource-based conditions
thr1 <- 1
data_qca$RB.Budget <- c(rep(0, 26), rep(thr1, 4), rep(0, 6), rep(thr1, 9),
rep(0, 10), rep(0, 2), rep(1, 4), rep(0, 6), rep(thr1, 3))
data_qca$RB.Inequality <- recode(data$RB.Inequality,
recodes = "0:0.8126000=0; 0.8126313:0.9=1")
data_qca$RB.Complexity <- c(rep(1, 55), rep(0, 15))Norm-based conditions
thr1 <- 1
data_qca$NB.visibility.all <- c(rep(0, 29), rep(thr1, 5), rep(1, 4),
rep(thr1, 7), rep(1, 6), rep(thr1, 3), 1, rep(0, 15))
data_qca$NB.visibility.hl <- c(rep(0, 29), rep(1, 3), rep(0, 10),
rep(1, 5), rep(0, 5), rep(1, 3), rep(0, 15))
data_qca$NB.gov.depth <- c(rep(0, 13), rep(0, 21), rep(1, 21), rep(0, 15))
data_qca$NB.dem.mem <- c(rep(0, 36), rep(1, 19), rep(0, 7), rep(1, 8))
data_qca$NB.og.norm <- c(rep(0, 33), rep(thr1, 6), rep(1, 16), rep(1, 15))QCA analyses
Next, I present the analysis of the individual outcome variables and of some combined outcomes. In the analysis for sufficiency, I limit the presentation to the intermediate solution for those analyses I do not present in more detail in Chapter 5.
Participation Talk
#truth table w/o IAEA1957:1961, OPCW 1997
data_qca$TALKPART <- data_qca$TALK.Part # for QCA package conventions
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
c("TALKPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# necessary conditions for participation talk
superSubset(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
"TALKPART", relation="necessity", incl.cut=1, cov.cut=0.8)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 1.000 0.917
## 2 rb.complexity+NB.DEM.MEM 1.000 1.000
## 3 rb.complexity+NB.GOV.DEPTH 1.000 0.943
## 4 rb.complexity+NB.VISIBILITY.ALL 1.000 0.825
## 5 RB.INEQUALITY+NB.DEM.MEM 1.000 1.000
## 6 RB.INEQUALITY+NB.GOV.DEPTH 1.000 0.943
## 7 RB.INEQUALITY+NB.VISIBILITY.ALL 1.000 0.825
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(6:55, 57:70), c(18, 10:17)], outcome =
"TALKPART", relation="necessity", incl.cut=1, cov.cut=1,
neg.out = T)##
## incl cov.r
## -------------------------------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem 1.000 1.000
## 2 rb.inequality*nb.dem.mem 1.000 1.000
## 3 rb.inequality*RB.COMPLEXITY*nb.dem.mem 1.000 1.000
## -------------------------------------------------------## sufficient conditions without nc og.norm
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:16)],
outcome = c("TALKPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 7)))##
## n OUT = 1/0/C: 33/31/0
## Total : 64
##
## p.sol: NB.DEM.MEM + rb.complexity
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity +
## RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM <=> TALKPART
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity 1.000 0.424 0.424
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.576 0.576
## -------------------------------------------------------------------------------
## M1 1.000 1.000
##
## cases
## -----------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.INEQUALITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.INEQUALITY + RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM
## <=> TALKPART
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.INEQUALITY 1.000 0.515 0.424
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.576 0.485
## -------------------------------------------------------------------------------
## M1 1.000 1.000
##
## cases
## -----------------------------------------------------------------
## 1 RB.INEQUALITY OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(6:55, 57:70), c(18, 10:16)],
outcome = c("TALKPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 31/33/0
## Total : 64
##
## Number of multiple-covered cases: 0
##
## M1: RB.COMPLEXITY*nb.dem.mem <=> talkpart
## M2: rb.inequality*nb.dem.mem <=> talkpart
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## --------------------------------------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem 1.000 1.000 0.000 -
## 2 rb.inequality*nb.dem.mem 1.000 1.000 0.000 -
## --------------------------------------------------------------
## M1 1.000 1.000
## M2 1.000 1.000
##
## cases
## ----------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988; IAEA1983,IAEA1984,IAEA1985;
## IAEA1986
## 2 rb.inequality*nb.dem.mem IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988; IAEA1983,IAEA1984,IAEA1985;
## IAEA1986
## ----------------------------------Transparency Talk
data_qca$TALKTRANS <- data_qca$TALK.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:17)],
outcome = c("TALKTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(1:55, 57:60), c(19, 10:17)], outcome = "TALKTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.76)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 1.000 0.885
## 2 rb.complexity+NB.DEM.MEM 1.000 1.000
## 3 rb.complexity+NB.GOV.DEPTH 1.000 0.920
## 4 rb.complexity+NB.VISIBILITY.ALL 1.000 0.767
## 5 RB.INEQUALITY+NB.DEM.MEM 1.000 1.000
## 6 RB.INEQUALITY+NB.GOV.DEPTH 1.000 0.920
## 7 RB.INEQUALITY+NB.VISIBILITY.ALL 1.000 0.767
## 8 RB.BUDGET+NB.DEM.MEM 0.957 0.846
## 9 RB.BUDGET+NB.GOV.DEPTH 0.957 0.786
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:55, 57:60), c(19, 10:17)], outcome = "TALKTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.76, neg.out = T)##
## incl cov.r
## --------------------------------------------------------------------------------
## 1 nb.og.norm 0.917 1.000
## 2 nb.dem.mem 1.000 0.900
## 3 nb.gov.depth 0.944 0.895
## 4 nb.dem.mem*nb.og.norm 0.917 1.000
## 5 nb.gov.depth*nb.og.norm 0.917 1.000
## 6 nb.gov.depth*nb.dem.mem 0.944 0.895
## 7 nb.visibility.hl*nb.dem.mem 0.917 0.892
## 8 RB.COMPLEXITY*nb.og.norm 0.917 1.000
## 9 RB.COMPLEXITY*nb.dem.mem 1.000 1.000
## 10 RB.COMPLEXITY*nb.gov.depth 0.944 1.000
## 11 rb.inequality*nb.og.norm 0.917 1.000
## 12 rb.inequality*nb.dem.mem 1.000 1.000
## 13 rb.inequality*nb.gov.depth 0.944 1.000
## 14 nb.gov.depth*nb.dem.mem*nb.og.norm 0.917 1.000
## 15 RB.COMPLEXITY*nb.dem.mem*nb.og.norm 0.917 1.000
## 16 RB.COMPLEXITY*nb.gov.depth*nb.og.norm 0.917 1.000
## 17 RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.944 1.000
## 18 RB.COMPLEXITY*nb.visibility.hl*nb.dem.mem 0.917 1.000
## 19 rb.inequality*nb.dem.mem*nb.og.norm 0.917 1.000
## 20 rb.inequality*nb.gov.depth*nb.og.norm 0.917 1.000
## 21 rb.inequality*nb.gov.depth*nb.dem.mem 0.944 1.000
## 22 rb.inequality*nb.visibility.hl*nb.dem.mem 0.917 1.000
## 23 rb.inequality*RB.COMPLEXITY*nb.og.norm 0.917 1.000
## 24 rb.inequality*RB.COMPLEXITY*nb.dem.mem 1.000 1.000
## 25 rb.inequality*RB.COMPLEXITY*nb.gov.depth 0.944 1.000
## 26 RB.COMPLEXITY*nb.gov.depth*nb.dem.mem*nb.og.norm 0.917 1.000
## 27 rb.inequality*nb.gov.depth*nb.dem.mem*nb.og.norm 0.917 1.000
## 28 rb.inequality*RB.COMPLEXITY*nb.dem.mem*nb.og.norm 0.917 1.000
## 29 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.og.norm 0.917 1.000
## 30 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.944 1.000
## 31 rb.inequality*RB.COMPLEXITY*nb.visibility.hl*nb.dem.mem 0.917 1.000
## 32 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.dem.mem*nb.og.norm 0.917 1.000
## --------------------------------------------------------------------------------# sufficient conditions, w/o og. norm
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:16)],
outcome = c("TALKTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 7)))##
## n OUT = 1/0/C: 33/36/0
## Total : 69
##
## p.sol: NB.DEM.MEM + rb.complexity
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity +
## RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM <=> TALKTRANS
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity 1.000 0.424 0.424
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.576 0.576
## -------------------------------------------------------------------------------
## M1 1.000 1.000
##
## cases
## -----------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.INEQUALITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.INEQUALITY + RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM
## <=> TALKTRANS
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.INEQUALITY 1.000 0.515 0.424
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.576 0.485
## -------------------------------------------------------------------------------
## M1 1.000 1.000
##
## cases
## -----------------------------------------------------------------
## 1 RB.INEQUALITY OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:55, 57:70), c(19, 10:16)],
outcome = c("TALKTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 36/33/0
## Total : 69
##
## Number of multiple-covered cases: 0
##
## M1: RB.COMPLEXITY*nb.dem.mem <=> talktrans
## M2: rb.inequality*nb.dem.mem <=> talktrans
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## --------------------------------------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem 1.000 1.000 0.000 -
## 2 rb.inequality*nb.dem.mem 1.000 1.000 0.000 -
## --------------------------------------------------------------
## M1 1.000 1.000
## M2 1.000 1.000
##
## cases
## ----------------------------------
## 1 RB.COMPLEXITY*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988; IAEA1983,IAEA1984,IAEA1985;
## IAEA1986
## 2 rb.inequality*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989,IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988; IAEA1983,IAEA1984,IAEA1985;
## IAEA1986
## ----------------------------------Combined Talk
#truth table
data_qca$TALK <- fsor(data_qca$TALK.Part,
data_qca$TALK.Trans) # for QCA package conventions
tt <- truthTable(data_qca[c(20, 10:11, 13:17)], outcome =
c("TALK"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# necessary conditions for participation talk
superSubset(data_qca[c(20, 10:17)], outcome =
"TALK", relation="necessity", incl.cut=0.8, cov.cut=0.8)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 0.868 0.892
## 2 rb.complexity+NB.DEM.MEM 0.868 0.971
## 3 rb.complexity+NB.GOV.DEPTH 0.868 0.917
## 4 rb.complexity+NB.VISIBILITY.ALL 0.868 0.805
## 5 RB.INEQUALITY+NB.DEM.MEM 0.868 0.971
## 6 RB.INEQUALITY+NB.GOV.DEPTH 0.868 0.917
## 7 RB.INEQUALITY+NB.VISIBILITY.ALL 0.868 0.805
## 8 RB.BUDGET+NB.DEM.MEM 0.816 0.886
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(20, 10:17)], outcome =
"TALK", relation="necessity", incl.cut=0.8, cov.cut=0.8,
neg.out = T)##
## incl cov.r
## --------------------------------------------------------------------------------------
## 1 nb.og.norm 0.875 0.848
## 2 nb.dem.mem*nb.og.norm 0.875 0.848
## 3 nb.gov.depth*nb.og.norm 0.875 0.848
## 4 RB.COMPLEXITY*nb.og.norm 0.875 0.848
## 5 RB.COMPLEXITY*nb.dem.mem 0.969 0.861
## 6 RB.COMPLEXITY*nb.gov.depth 0.906 0.853
## 7 rb.inequality*nb.og.norm 0.875 0.848
## 8 rb.inequality*nb.dem.mem 0.969 0.861
## 9 rb.inequality*nb.gov.depth 0.906 0.853
## 10 rb.budget*nb.dem.mem 0.875 0.800
## 11 nb.gov.depth*nb.dem.mem*nb.og.norm 0.875 0.848
## 12 RB.COMPLEXITY*nb.dem.mem*nb.og.norm 0.875 0.848
## 13 RB.COMPLEXITY*nb.gov.depth*nb.og.norm 0.875 0.848
## 14 RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.906 0.853
## 15 RB.COMPLEXITY*nb.visibility.hl*nb.dem.mem 0.875 0.848
## 16 RB.COMPLEXITY*nb.visibility.hl*nb.gov.depth 0.812 0.839
## 17 rb.inequality*nb.dem.mem*nb.og.norm 0.875 0.848
## 18 rb.inequality*nb.gov.depth*nb.og.norm 0.875 0.848
## 19 rb.inequality*nb.gov.depth*nb.dem.mem 0.906 0.853
## 20 rb.inequality*nb.visibility.hl*nb.dem.mem 0.875 0.848
## 21 rb.inequality*nb.visibility.hl*nb.gov.depth 0.812 0.839
## 22 rb.inequality*RB.COMPLEXITY*nb.og.norm 0.875 0.848
## 23 rb.inequality*RB.COMPLEXITY*nb.dem.mem 0.969 0.861
## 24 rb.inequality*RB.COMPLEXITY*nb.gov.depth 0.906 0.853
## 25 rb.budget*RB.COMPLEXITY*nb.dem.mem 0.844 0.844
## 26 rb.budget*rb.inequality*nb.dem.mem 0.844 0.844
## 27 RB.COMPLEXITY*nb.gov.depth*nb.dem.mem*nb.og.norm 0.875 0.848
## 28 RB.COMPLEXITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.812 0.839
## 29 rb.inequality*nb.gov.depth*nb.dem.mem*nb.og.norm 0.875 0.848
## 30 rb.inequality*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.812 0.839
## 31 rb.inequality*RB.COMPLEXITY*nb.dem.mem*nb.og.norm 0.875 0.848
## 32 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.og.norm 0.875 0.848
## 33 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.906 0.853
## 34 rb.inequality*RB.COMPLEXITY*nb.visibility.hl*nb.dem.mem 0.875 0.848
## 35 rb.inequality*RB.COMPLEXITY*nb.visibility.hl*nb.gov.depth 0.812 0.839
## 36 rb.budget*rb.inequality*RB.COMPLEXITY*nb.dem.mem 0.844 0.844
## 37 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.dem.mem*nb.og.norm 0.875 0.848
## 38 rb.inequality*RB.COMPLEXITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.812 0.839
## --------------------------------------------------------------------------------------
## sufficient conditions without nc og.norm
tt <- truthTable(data_qca[c(20, 10:11, 13:16)],
outcome = c("TALK"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# conservative solution
eqmcc(tt, show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 31/39/0
## Total : 70
##
## Number of multiple-covered cases: 5
##
## M1: rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM +
## rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM +
## RB.BUDGET*RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth +
## RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*NB.DEM.MEM => TALK
##
## incl cov.r cov.u
## ------------------------------------------------------------------------------------------------
## 1 rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.421 0.368
## 2 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.132 0.079
## 3 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth 1.000 0.184 0.105
## 4 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*NB.DEM.MEM 1.000 0.211 0.132
## ------------------------------------------------------------------------------------------------
## M1 1.000 0.816
##
## cases
## ----------------------------------------------------------------------------------
## 1 rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## 2 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011
## 3 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 4 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*NB.DEM.MEM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## OPCW2009,OPCW2010,OPCW2011
## ----------------------------------------------------------------------------------# intermediary solution
intermed.sol <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 6)))
intermed.sol##
## n OUT = 1/0/C: 31/39/0
## Total : 70
##
## p.sol: NB.DEM.MEM + RB.BUDGET*RB.INEQUALITY
##
## Number of multiple-covered cases: 6
##
## M1: RB.BUDGET*RB.INEQUALITY + RB.INEQUALITY*NB.DEM.MEM +
## NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM => TALK
##
## incl cov.r cov.u
## -----------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY 1.000 0.184 0.105
## 2 RB.INEQUALITY*NB.DEM.MEM 1.000 0.289 0.132
## 3 NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.500 0.421
## -----------------------------------------------------------------
## M1 1.000 0.816
##
## cases
## ---------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*NB.DEM.MEM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011; OPCW2009,OPCW2010,OPCW2011
## 3 NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## ---------------------------------------------------# parsimonious solution
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 31/39/0
## Total : 70
##
## Number of multiple-covered cases: 3
##
## M1: NB.DEM.MEM + RB.BUDGET*RB.INEQUALITY => TALK
##
## incl cov.r cov.u
## -----------------------------------------------
## 1 NB.DEM.MEM 1.000 0.711 0.632
## 2 RB.BUDGET*RB.INEQUALITY 1.000 0.184 0.105
## -----------------------------------------------
## M1 1.000 0.816
##
## cases
## ---------------------------------
## 1 NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; IAEA2002,IAEA2003;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998; IAEA1999,IAEA2000,IAEA2001;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.BUDGET*RB.INEQUALITY OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW2009,OPCW2010,OPCW2011
## ---------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(20, 10:11, 13:16)],
outcome = c("TALK"), incl.cut1=1, sort.by="incl",
show.cases = TRUE, neg.out = T)
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 6)))
sc$i.sol$C1P1$IC##
## incl cov.r cov.u
## ----------------------------------------------------------
## 1 NB.VISIBILITY.ALL*nb.dem.mem 1.000 0.219 0.188
## 2 RB.BUDGET*rb.inequality*nb.dem.mem 1.000 0.125 0.094
## ----------------------------------------------------------
## M1 1.000 0.312
##
## cases
## --------------------------------------------
## 1 NB.VISIBILITY.ALL*nb.dem.mem IAEA1989,IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1986
## 2 RB.BUDGET*rb.inequality*nb.dem.mem IAEA1983,IAEA1984,IAEA1985; IAEA1986
## --------------------------------------------
Participation Decision
data_qca$DECPART <- data_qca$DEC.Part # for QCA package conventions
tt <- truthTable(data_qca[c(21, 10:17)],
outcome = c("DECPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
superSubset(data_qca[c(21, 10:17)], outcome = "DECPART",
relation="nec", incl.cut=0.6, cov.cut=0.7)##
## incl cov.r
## -------------------------------------------------------------------------------------------------------------------
## 1 nb.dem.mem*NB.OG.NORM 0.636 0.700
## 2 rb.complexity*nb.dem.mem 0.636 1.000
## 3 RB.INEQUALITY*nb.dem.mem 0.636 1.000
## 4 nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 0.875
## 5 nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 0.700
## 6 nb.visibility.all*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 7 rb.complexity*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 8 rb.complexity*nb.gov.depth*nb.dem.mem 0.636 1.000
## 9 rb.complexity*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 10 rb.complexity*nb.visibility.all*nb.dem.mem 0.636 1.000
## 11 RB.INEQUALITY*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 12 RB.INEQUALITY*nb.gov.depth*nb.dem.mem 0.636 1.000
## 13 RB.INEQUALITY*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 14 RB.INEQUALITY*nb.visibility.all*nb.dem.mem 0.636 1.000
## 15 RB.INEQUALITY*rb.complexity*nb.dem.mem 0.636 1.000
## 16 nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 0.875
## 17 nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 18 nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 19 rb.complexity*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 20 rb.complexity*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 21 rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 22 rb.complexity*nb.visibility.all*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 23 rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem 0.636 1.000
## 24 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 25 RB.INEQUALITY*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 26 RB.INEQUALITY*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 27 RB.INEQUALITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 28 RB.INEQUALITY*nb.visibility.all*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 29 RB.INEQUALITY*nb.visibility.all*nb.gov.depth*nb.dem.mem 0.636 1.000
## 30 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 31 RB.INEQUALITY*rb.complexity*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 32 RB.INEQUALITY*rb.complexity*nb.gov.depth*nb.dem.mem 0.636 1.000
## 33 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 34 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.dem.mem 0.636 1.000
## 35 nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 36 rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 37 rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 38 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 39 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 40 RB.INEQUALITY*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 41 RB.INEQUALITY*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 42 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 43 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 44 RB.INEQUALITY*rb.complexity*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 45 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 46 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 47 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 48 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem 0.636 1.000
## 49 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem 0.636 1.000
## 50 rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 51 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 52 RB.INEQUALITY*rb.complexity*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 53 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 54 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.dem.mem*NB.OG.NORM 0.636 1.000
## 55 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.636 1.000
## 56 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 0.636 1.000
## -------------------------------------------------------------------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(21, 10:17)], outcome = "DECPART",
relation="nec", incl.cut=0.8, cov.cut=0.9, neg.out = T)##
## incl cov.r
## ---------------------------------------------
## 1 RB.COMPLEXITY 0.864 0.927
## 2 rb.inequality 0.814 0.923
## 3 rb.inequality*RB.COMPLEXITY 0.814 0.923
## 4 NB.DEM.MEM+nb.og.norm 0.949 0.933
## 5 NB.GOV.DEPTH+nb.og.norm 0.847 0.926
## 6 NB.VISIBILITY.ALL+nb.og.norm 0.864 0.927
## ---------------------------------------------# sufficient conditions
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 8)))##
## n OUT = 1/0/C: 7/63/0
## Total : 70
##
## p.sol: rb.complexity*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => DECPART
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.636 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.636
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => DECPART
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.636 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.636
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: nb.visibility.all*nb.dem.mem*NB.OG.NORM
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => DECPART
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.636 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.636
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:15, 20:70), c(21, 10:17)],
outcome = c("DECPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 8)))##
## n OUT = 1/0/C: 59/7/0
## Total : 66
##
## p.sol: NB.DEM.MEM + RB.COMPLEXITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 RB.COMPLEXITY 1.000 0.864 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.136
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + rb.inequality
##
## Number of multiple-covered cases: 0
##
## M1: rb.inequality*RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY 1.000 0.814 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.186
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.COMPLEXITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 RB.COMPLEXITY 1.000 0.864 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.136
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + rb.inequality
##
## Number of multiple-covered cases: 0
##
## M1: rb.inequality*RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY 1.000 0.814 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.186
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.COMPLEXITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 RB.COMPLEXITY 1.000 0.864 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.136
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + rb.inequality
##
## Number of multiple-covered cases: 0
##
## M1: rb.inequality*RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY 1.000 0.814 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.186
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.COMPLEXITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 RB.COMPLEXITY 1.000 0.864 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.136
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------
##
##
## p.sol: NB.DEM.MEM + rb.inequality
##
## Number of multiple-covered cases: 0
##
## M1: rb.inequality*RB.COMPLEXITY + RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM <=> decpart
##
## incl cov.r cov.u
## -----------------------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY 1.000 0.814 0.814
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.186 0.186
## -----------------------------------------------------------
## M1 1.000 1.000
##
## cases
## ---------------------------------------------
## 1 rb.inequality*RB.COMPLEXITY IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA1983,IAEA1984,IAEA1985;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008; IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------------------Transparency Decision
data_qca$DECTRANS <- data_qca$DEC.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(1:55, 57:70), c(22, 10:17)],
outcome = c("DECTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(1:55, 57:70), c(22, 10:17)], outcome = "DECTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.8)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 1.000 0.889
## 2 rb.complexity+NB.DEM.MEM 1.000 0.970
## 3 rb.complexity+NB.GOV.DEPTH 1.000 0.914
## 4 rb.complexity+NB.VISIBILITY.ALL 1.000 0.800
## 5 RB.INEQUALITY+NB.DEM.MEM 1.000 0.970
## 6 RB.INEQUALITY+NB.GOV.DEPTH 1.000 0.914
## 7 RB.INEQUALITY+NB.VISIBILITY.ALL 1.000 0.800
## 8 RB.BUDGET+NB.DEM.MEM 0.969 0.886
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(1:55, 57:70), c(22, 10:17)], outcome = "DECTRANS",
relation="nec", incl.cut=0.9, cov.cut=0.8, neg.out = T)##
## incl cov.r
## ---------------------------------------------------------------------
## 1 nb.dem.mem 1.000 0.881
## 2 nb.gov.depth*nb.dem.mem 0.946 0.875
## 3 nb.visibility.hl*nb.dem.mem 0.919 0.872
## 4 RB.COMPLEXITY*nb.dem.mem 0.973 1.000
## 5 RB.COMPLEXITY*nb.gov.depth 0.919 1.000
## 6 rb.inequality*nb.dem.mem 0.973 1.000
## 7 rb.inequality*nb.gov.depth 0.919 1.000
## 8 RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.919 1.000
## 9 rb.inequality*nb.gov.depth*nb.dem.mem 0.919 1.000
## 10 rb.inequality*RB.COMPLEXITY*nb.dem.mem 0.973 1.000
## 11 rb.inequality*RB.COMPLEXITY*nb.gov.depth 0.919 1.000
## 12 rb.inequality*RB.COMPLEXITY*nb.gov.depth*nb.dem.mem 0.919 1.000
## ---------------------------------------------------------------------# sufficient conditions w/o og.norm
tt <- truthTable(data_qca[c(1:55, 57:70), c(22, 10:16)],
outcome = c("DECTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 7)))##
## n OUT = 1/0/C: 31/38/0
## Total : 69
##
## p.sol: NB.DEM.MEM + RB.BUDGET*rb.complexity
##
## Number of multiple-covered cases: 6
##
## M1: RB.INEQUALITY*NB.DEM.MEM + RB.BUDGET*RB.INEQUALITY*rb.complexity +
## RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM => DECTRANS
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.INEQUALITY*NB.DEM.MEM 1.000 0.344 0.156
## 2 RB.BUDGET*RB.INEQUALITY*rb.complexity 1.000 0.219 0.125
## 3 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.594 0.500
## -------------------------------------------------------------------------------
## M1 1.000 0.969
##
## cases
## -----------------------------------------------------------------
## 1 RB.INEQUALITY*NB.DEM.MEM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.BUDGET*RB.INEQUALITY*rb.complexity OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 3 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------
##
##
## p.sol: NB.DEM.MEM + RB.BUDGET*RB.INEQUALITY
##
## Number of multiple-covered cases: 6
##
## M1: RB.BUDGET*RB.INEQUALITY + RB.INEQUALITY*NB.DEM.MEM +
## RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM => DECTRANS
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY 1.000 0.219 0.125
## 2 RB.INEQUALITY*NB.DEM.MEM 1.000 0.344 0.156
## 3 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.594 0.500
## -------------------------------------------------------------------------------
## M1 1.000 0.969
##
## cases
## -----------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*NB.DEM.MEM OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011;
## OPCW2009,OPCW2010,OPCW2011
## 3 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(1:55, 57:70), c(22, 10:16)],
outcome = c("DECTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 7)))##
## n OUT = 1/0/C: 36/33/0
## Total : 69
##
## p.sol: RB.COMPLEXITY*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem +
## rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem +
## rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem
## <=> dectrans
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------------------------
## 1 rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem 1.000 0.108 0.108
## 2 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 0.784 0.784
## 3 rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem 1.000 0.081 0.081
## --------------------------------------------------------------------------------------------------------------
## M1 1.000 0.973
##
## cases
## ------------------------------------------------------------------------------------------------
## 1 rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem IAEA1989,IAEA1990;
## IAEA1991,IAEA1992
## 2 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1983,IAEA1984,IAEA1985
## 3 rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem IAEA1987,IAEA1988;
## IAEA1986
## ------------------------------------------------------------------------------------------------
##
##
## p.sol: rb.inequality*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem +
## rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem +
## rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem
## <=> dectrans
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------------------------
## 1 rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem 1.000 0.108 0.108
## 2 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 1.000 0.784 0.784
## 3 rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem 1.000 0.081 0.081
## --------------------------------------------------------------------------------------------------------------
## M1 1.000 0.973
##
## cases
## ------------------------------------------------------------------------------------------------
## 1 rb.budget*rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*nb.visibility.hl*nb.dem.mem IAEA1989,IAEA1990;
## IAEA1991,IAEA1992
## 2 rb.inequality*RB.COMPLEXITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem IAEA1957,IAEA1958,IAEA1959,IAEA1960,IAEA1961,IAEA1962,IAEA1963,IAEA1964,IAEA1965,IAEA1966,IAEA1967,IAEA1968,IAEA1969,IAEA1970,IAEA1971,IAEA1972,IAEA1973,IAEA1974,IAEA1975,IAEA1976,IAEA1977,IAEA1978,IAEA1979,IAEA1980,IAEA1981,IAEA1982;
## IAEA1983,IAEA1984,IAEA1985
## 3 rb.inequality*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem IAEA1987,IAEA1988;
## IAEA1986
## ------------------------------------------------------------------------------------------------Combined Decision
data_qca$DECISION <- fsor(data_qca$DEC.Part, data_qca$DEC.Trans)
tt <- truthTable(data_qca[c(23, 10:11, 13:17)], outcome = c("DECISION"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(23, 10:11, 13:17)], outcome = "DECISION",
relation="nec", incl.cut=0.8, cov.cut=0.5)##
## incl cov.r
## ---------------------------------------------------------------------
## 1 NB.OG.NORM 0.895 0.919
## 2 NB.DEM.MEM+nb.og.norm 0.816 0.517
## 3 nb.gov.depth+NB.DEM.MEM 1.000 0.559
## 4 nb.visibility.hl+NB.DEM.MEM 1.000 0.567
## 5 nb.visibility.hl+NB.GOV.DEPTH 1.000 0.567
## 6 nb.visibility.all+NB.DEM.MEM 1.000 0.603
## 7 nb.visibility.all+NB.GOV.DEPTH 1.000 0.585
## 8 NB.VISIBILITY.ALL+nb.gov.depth 1.000 0.543
## 9 NB.VISIBILITY.ALL+nb.visibility.hl 1.000 0.543
## 10 rb.inequality+nb.gov.depth 0.921 0.522
## 11 rb.inequality+nb.visibility.hl 0.921 0.522
## 12 rb.inequality+nb.visibility.all 0.921 0.522
## 13 RB.INEQUALITY+NB.DEM.MEM 0.895 1.000
## 14 RB.INEQUALITY+NB.GOV.DEPTH 0.895 0.944
## 15 RB.INEQUALITY+nb.visibility.hl 0.868 0.532
## 16 RB.INEQUALITY+NB.VISIBILITY.ALL 0.895 0.829
## 17 rb.budget+NB.DEM.MEM 0.895 0.548
## 18 rb.budget+NB.GOV.DEPTH 0.816 0.525
## 19 rb.budget+nb.visibility.hl 0.921 0.530
## 20 rb.budget+NB.VISIBILITY.ALL 0.816 0.517
## 21 RB.BUDGET+NB.DEM.MEM 0.816 0.886
## 22 RB.BUDGET+nb.visibility.hl 0.868 0.524
## 23 rb.budget+NB.VISIBILITY.HL+nb.gov.depth 0.842 0.500
## 24 rb.budget+nb.visibility.all+NB.VISIBILITY.HL 0.842 0.500
## 25 rb.budget+rb.inequality+nb.dem.mem 0.921 0.522
## 26 rb.budget+RB.INEQUALITY+NB.VISIBILITY.HL 0.842 0.525
## 27 RB.BUDGET+NB.GOV.DEPTH+nb.dem.mem 0.868 0.508
## 28 RB.BUDGET+NB.VISIBILITY.HL+nb.gov.depth 0.868 0.524
## 29 RB.BUDGET+nb.visibility.all+NB.VISIBILITY.HL 0.868 0.541
## 30 RB.BUDGET+NB.VISIBILITY.ALL+nb.dem.mem 0.868 0.508
## 31 RB.BUDGET+RB.INEQUALITY+nb.og.norm 0.816 0.517
## 32 RB.BUDGET+RB.INEQUALITY+nb.gov.depth 0.816 0.508
## 33 RB.BUDGET+RB.INEQUALITY+nb.visibility.all 0.816 0.544
## 34 RB.BUDGET+rb.inequality+NB.VISIBILITY.HL+nb.dem.mem 0.868 0.508
## 35 RB.BUDGET+RB.INEQUALITY+NB.VISIBILITY.HL+nb.dem.mem 0.868 0.508
## ---------------------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(23, 10:11, 13:17)], outcome = "DECISION",
relation="nec", incl.cut=0.8, cov.cut=0.878,
neg.out = T)##
## incl cov.r
## ------------------------------------------------------------------
## 1 nb.og.norm 0.906 0.879
## 2 nb.dem.mem*nb.og.norm 0.906 0.879
## 3 nb.gov.depth*nb.og.norm 0.906 0.879
## 4 rb.inequality*nb.og.norm 0.906 0.879
## 5 rb.inequality*nb.dem.mem 1.000 0.889
## 6 rb.inequality*nb.gov.depth 0.938 0.882
## 7 nb.gov.depth*nb.dem.mem*nb.og.norm 0.906 0.879
## 8 rb.inequality*nb.dem.mem*nb.og.norm 0.906 0.879
## 9 rb.inequality*nb.gov.depth*nb.og.norm 0.906 0.879
## 10 rb.inequality*nb.gov.depth*nb.dem.mem 0.938 0.882
## 11 rb.inequality*nb.visibility.hl*nb.dem.mem 0.906 0.879
## 12 rb.inequality*nb.gov.depth*nb.dem.mem*nb.og.norm 0.906 0.879
## ------------------------------------------------------------------
# sufficient conditions, w/o OG.Norm
tt <- truthTable(data_qca[c(23, 10:11, 13:16)], outcome = c("DECISION"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# conservative
eqmcc(tt, show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 34/36/0
## Total : 70
##
## Number of multiple-covered cases: 2
##
## M1: rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM +
## RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth +
## rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM => DECISION
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------
## 1 rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.421 0.368
## 2 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth 1.000 0.395 0.395
## 3 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.132 0.079
## --------------------------------------------------------------------------------------------
## M1 1.000 0.895
##
## cases
## ------------------------------------------------------------------------------
## 1 rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## 2 RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth OPCW1997,OPCW1998,OPCW2003;
## OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 3 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011
## ------------------------------------------------------------------------------# intermediate
intermed.sol <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 6)))
intermed.sol##
## n OUT = 1/0/C: 34/36/0
## Total : 70
##
## p.sol: NB.DEM.MEM + RB.INEQUALITY
##
## Number of multiple-covered cases: 3
##
## M1: RB.INEQUALITY + NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM => DECISION
##
## incl cov.r cov.u
## -----------------------------------------------------------------
## 1 RB.INEQUALITY 1.000 0.474 0.395
## 2 NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM 1.000 0.500 0.421
## -----------------------------------------------------------------
## M1 1.000 0.895
##
## cases
## ---------------------------------------------------
## 1 RB.INEQUALITY OPCW1997,OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011; OPCW1999,OPCW2000,OPCW2001,OPCW2002;
## OPCW2009,OPCW2010,OPCW2011
## 2 NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## ---------------------------------------------------# parsimonious
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 34/36/0
## Total : 70
##
## Number of multiple-covered cases: 11
##
## M1: NB.DEM.MEM + RB.INEQUALITY => DECISION
##
## incl cov.r cov.u
## -------------------------------------
## 1 NB.DEM.MEM 1.000 0.711 0.421
## 2 RB.INEQUALITY 1.000 0.474 0.184
## -------------------------------------
## M1 1.000 0.895
##
## cases
## -----------------------
## 1 NB.DEM.MEM IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008; IAEA2002,IAEA2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY OPCW1997,OPCW1998,OPCW2003; OPCW2004,OPCW2005,OPCW2006,OPCW2007,OPCW2008;
## IAEA2009,IAEA2010,IAEA2011; OPCW1999,OPCW2000,OPCW2001,OPCW2002; OPCW2009,OPCW2010,OPCW2011
## -----------------------#factorize(sc)
# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(23, 10:11, 13:17)], outcome = c("DECISION"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 10/60/0
## Total : 70
##
## Number of multiple-covered cases: 1
##
## M1: NB.VISIBILITY.ALL*nb.dem.mem + (RB.BUDGET*nb.og.norm) => decision
## M2: NB.VISIBILITY.ALL*nb.dem.mem + (RB.BUDGET*rb.inequality*nb.dem.mem) => decision
## M3: NB.VISIBILITY.ALL*nb.dem.mem + (RB.BUDGET*rb.inequality*nb.gov.depth) => decision
## M4: NB.VISIBILITY.ALL*nb.dem.mem + (RB.BUDGET*rb.inequality*nb.visibility.all)
## => decision
##
##
## --------------------------
## incl cov.r cov.u (M1) (M2) (M3)
## --------------------------------------------------------------------------------------
## 1 NB.VISIBILITY.ALL*nb.dem.mem 1.000 0.219 0.188 0.188 0.188 0.188
## --------------------------------------------------------------------------------------
## 2 RB.BUDGET*nb.og.norm 1.000 0.125 0.000 0.094
## 3 RB.BUDGET*rb.inequality*nb.dem.mem 1.000 0.125 0.000 0.094
## 4 RB.BUDGET*rb.inequality*nb.gov.depth 1.000 0.125 0.000 0.094
## 5 RB.BUDGET*rb.inequality*nb.visibility.all 1.000 0.094 0.000
## --------------------------------------------------------------------------------------
## M1 1.000 0.312
## M2 1.000 0.312
## M3 1.000 0.312
## M4 1.000 0.312
##
## ---------------------------------------------------
## (M4)
## ---------------------------------------------------
## 1 NB.VISIBILITY.ALL*nb.dem.mem 0.219
## ---------------------------------------------------
## 2 RB.BUDGET*nb.og.norm
## 3 RB.BUDGET*rb.inequality*nb.dem.mem
## 4 RB.BUDGET*rb.inequality*nb.gov.depth
## 5 RB.BUDGET*rb.inequality*nb.visibility.all 0.094
## ---------------------------------------------------
##
## cases
## ---------------------------------------------------
## 2 NB.VISIBILITY.ALL*nb.dem.mem IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA1987,IAEA1988;
## IAEA1986
## ---------------------------------------------------
## 2 RB.BUDGET*nb.og.norm IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 3 RB.BUDGET*rb.inequality*nb.dem.mem IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 4 RB.BUDGET*rb.inequality*nb.gov.depth IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 5 RB.BUDGET*rb.inequality*nb.visibility.all IAEA1983,IAEA1984,IAEA1985
## ---------------------------------------------------
Participation Action: No. of NGOs
data_qca$ACTPART1 <- data_qca$ACT.Part.1 # for QCA package conventions
tt <- truthTable(data_qca[c(24, 10:17)], outcome = c("ACTPART1"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(24, 10:17)], outcome = "ACTPART1",
relation="nec", incl.cut=0.8, cov.cut=0.6)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 0.800 0.757
## 2 rb.complexity+NB.GOV.DEPTH 0.800 0.778
## 3 rb.complexity+NB.VISIBILITY.ALL 0.800 0.683
## 4 RB.INEQUALITY+NB.GOV.DEPTH 0.800 0.778
## 5 RB.INEQUALITY+NB.VISIBILITY.ALL 0.800 0.683
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(24, 10:17)], outcome = "ACTPART1",
relation="nec", incl.cut=0.9, cov.cut=0.6, neg.out = T)##
## incl cov.r
## ----------------------------------------------------
## 1 nb.gov.depth 1.000 0.714
## 2 nb.visibility.hl*nb.gov.depth 0.914 0.696
## 3 nb.visibility.all+nb.og.norm 0.971 0.708
## 4 nb.visibility.all+nb.dem.mem 1.000 0.686
## 5 nb.visibility.all+NB.VISIBILITY.HL 0.943 0.600
## 6 rb.complexity+nb.og.norm 0.971 0.708
## 7 rb.complexity+nb.dem.mem 1.000 0.686
## 8 RB.INEQUALITY+nb.og.norm 0.971 0.667
## 9 RB.INEQUALITY+nb.dem.mem 1.000 0.648
## 10 rb.budget+nb.og.norm 0.943 0.611
## 11 rb.budget+nb.dem.mem 1.000 0.603
## ----------------------------------------------------# sufficient conditions
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 8)))##
## n OUT = 1/0/C: 24/46/0
## Total : 70
##
## p.sol: NB.GOV.DEPTH + RB.BUDGET*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM +
## RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.OG.NORM => ACTPART1
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.086 0.086
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.OG.NORM 1.000 0.600 0.600
## -------------------------------------------------------------------------------
## M1 1.000 0.686
##
## cases
## -----------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.OG.NORM IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001
## -----------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(24, 10:17)], outcome = c("ACTPART1"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)
sc$essential## [1] "NB.VISIBILITY.ALL*nb.gov.depth"Participation Action: No. of NGO representatives
data_qca$ACTPART2 <- data_qca$ACT.Part.2 # for QCA package conventions
tt <- truthTable(data_qca[c(25, 10:17)], outcome = c("ACTPART2"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(25, 10:17)], outcome = "ACTPART2",
relation="nec", incl.cut=0.8, cov.cut=0.5)##
## incl cov.r
## ----------------------------------------------------
## 1 RB.INEQUALITY*NB.DEM.MEM 0.857 0.545
## 2 RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 0.857 0.545
## ----------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(25, 10:17)], outcome = "ACTPART2",
relation="nec", incl.cut=0.8, cov.cut=0.92,
neg.out = T)##
## incl cov.r
## -------------------------------------------------------
## 1 nb.visibility.hl 0.873 0.932
## 2 RB.COMPLEXITY 0.810 0.927
## 3 rb.inequality 0.810 0.981
## 4 rb.inequality*RB.COMPLEXITY 0.810 0.981
## 5 NB.GOV.DEPTH+nb.dem.mem 0.921 0.935
## 6 NB.VISIBILITY.ALL+nb.og.norm 0.810 0.927
## 7 NB.VISIBILITY.ALL+nb.dem.mem 0.921 0.935
## 8 rb.budget+nb.dem.mem 0.857 0.931
## 9 rb.budget+NB.GOV.DEPTH 0.873 0.932
## 10 rb.budget+NB.VISIBILITY.ALL 0.889 0.933
## 11 RB.BUDGET+nb.dem.mem 0.825 0.945
## 12 RB.BUDGET+nb.gov.depth 0.873 0.948
## 13 RB.BUDGET+nb.visibility.all 0.810 0.944
## 14 rb.budget+NB.VISIBILITY.HL+nb.og.norm 0.841 0.930
## 15 RB.BUDGET+rb.complexity+nb.og.norm 0.857 0.947
## -------------------------------------------------------# sufficient conditions
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 8)))##
## n OUT = 1/0/C: 6/64/0
## Total : 70
##
## p.sol: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*rb.complexity*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.GOV.DEPTH + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*rb.complexity*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.ALL + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*rb.complexity*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*NB.VISIBILITY.HL + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*nb.gov.depth*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*nb.visibility.all*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*nb.visibility.all*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*rb.complexity*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*rb.complexity*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*RB.COMPLEXITY + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
##
## Number of multiple-covered cases: 0
##
## M1: RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM +
## RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM
## => ACTPART2
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM 1.000 0.429 0.429
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.857
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM*NB.OG.NORM OPCW2009,OPCW2010,OPCW2011
## 2 RB.INEQUALITY*RB.COMPLEXITY*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM IAEA2009,IAEA2010,IAEA2011
## -----------------------------------------------------------------------------------------------------------# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(25, 10:17)], outcome = c("ACTPART2"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)
sc$essential## [1] "nb.dem.mem" "rb.inequality*NB.VISIBILITY.HL"Participation Action: Participation events
data_qca$ACTPART4 <- data_qca$ACT.Part.4 # for QCA package conventions
tt <- truthTable(data_qca[c(26, 10:17)], outcome = c("ACTPART4"),
incl.cut1=1, sort.by="incl", show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(26, 10:17)], outcome = "ACTPART4",
relation="nec", incl.cut=0.9, cov.cut=0.7)##
## incl cov.r
## -------------------------------------------------------------------
## 1 RB.BUDGET+NB.VISIBILITY.ALL+NB.DEM.MEM 0.968 0.732
## 2 RB.BUDGET+NB.VISIBILITY.HL+NB.GOV.DEPTH+NB.DEM.MEM 0.903 0.718
## -------------------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(26, 10:17)], outcome = "ACTPART4",
relation="nec", incl.cut=0.9, cov.cut=0.63,
neg.out = T)##
## incl cov.r
## ---------------------------------------------------
## 1 nb.visibility.hl 0.974 0.644
## 2 rb.budget+rb.complexity 0.923 0.632
## 3 rb.budget+RB.INEQUALITY 0.923 0.632
## 4 RB.BUDGET+nb.gov.depth 0.949 0.638
## 5 RB.BUDGET+nb.visibility.all 0.949 0.685
## 6 RB.BUDGET+rb.complexity+nb.og.norm 0.949 0.649
## ---------------------------------------------------# sufficient conditions
tt <- truthTable(data_qca[c(26, 10:17)], outcome = c("ACTPART4"),
incl.cut1=0.8, sort.by="incl", show.cases = TRUE)
# use parsimonious solution here.
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)
sc$essential## [1] "RB.BUDGET*NB.VISIBILITY.HL"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(26, 10:17)], outcome = c("ACTPART4"),
incl.cut1=1, sort.by="incl", show.cases = TRUE,
neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 8)))##
## n OUT = 1/0/C: 7/63/0
## Total : 70
##
## p.sol: rb.complexity*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => actpart4
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.179 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.179
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: RB.INEQUALITY*nb.dem.mem
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => actpart4
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.179 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.179
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------
##
##
## p.sol: nb.visibility.all*nb.dem.mem*NB.OG.NORM
##
## Number of multiple-covered cases: 0
##
## M1: RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM => actpart4
##
## incl cov.r cov.u
## -------------------------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM 1.000 0.179 -
## -------------------------------------------------------------------------------------------------------------------------
## M1 1.000 0.179
##
## cases
## -----------------------------------------------------------------------------------------------------------
## 1 RB.INEQUALITY*rb.complexity*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*NB.OG.NORM OPCW1997,OPCW1998,OPCW2003;
## OPCW1999,OPCW2000,OPCW2001,OPCW2002
## -----------------------------------------------------------------------------------------------------------Participation Action
data_qca$ACTPART <- fsor(data_qca$ACTPART1,
data_qca$ACTPART2, data_qca$ACTPART4)
tt <- truthTable(data_qca[c(27, 10:11, 13:17)],
outcome = c("ACTPART"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(27, 10:11, 13:17)], outcome = "ACTPART",
relation="nec", incl.cut=1, cov.cut=0.6)##
## incl cov.r
## ---------------------------------------------------------------------------
## 1 nb.dem.mem+NB.OG.NORM 1.000 0.671
## 2 nb.gov.depth+NB.OG.NORM 1.000 0.671
## 3 NB.VISIBILITY.ALL+nb.gov.depth 1.000 0.671
## 4 NB.VISIBILITY.ALL+nb.visibility.hl 1.000 0.671
## 5 rb.inequality+NB.OG.NORM 1.000 0.671
## 6 nb.visibility.hl+NB.DEM.MEM+nb.og.norm 1.000 0.671
## 7 nb.visibility.hl+nb.gov.depth+NB.DEM.MEM 1.000 0.671
## 8 nb.visibility.hl+NB.GOV.DEPTH+nb.og.norm 1.000 0.671
## 9 nb.visibility.hl+NB.GOV.DEPTH+nb.dem.mem 1.000 0.671
## 10 nb.visibility.all+NB.GOV.DEPTH+nb.dem.mem 1.000 0.671
## 11 rb.inequality+nb.gov.depth+NB.DEM.MEM 1.000 0.671
## 12 rb.inequality+nb.visibility.hl+NB.DEM.MEM 1.000 0.671
## 13 rb.inequality+nb.visibility.hl+NB.GOV.DEPTH 1.000 0.671
## 14 rb.inequality+NB.VISIBILITY.HL+nb.gov.depth 1.000 0.671
## 15 rb.inequality+nb.visibility.all+NB.DEM.MEM 1.000 0.671
## 16 rb.inequality+nb.visibility.all+NB.GOV.DEPTH 1.000 0.671
## 17 rb.inequality+nb.visibility.all+NB.VISIBILITY.HL 1.000 0.671
## 18 RB.INEQUALITY+NB.GOV.DEPTH+nb.dem.mem 1.000 0.671
## 19 RB.INEQUALITY+NB.VISIBILITY.ALL+nb.og.norm 1.000 0.671
## 20 RB.INEQUALITY+NB.VISIBILITY.ALL+nb.dem.mem 1.000 0.671
## 21 rb.budget+nb.gov.depth+NB.DEM.MEM 1.000 0.671
## 22 rb.budget+rb.inequality+nb.gov.depth 1.000 0.671
## 23 rb.budget+rb.inequality+nb.visibility.hl 1.000 0.671
## 24 rb.budget+rb.inequality+nb.visibility.all 1.000 0.671
## 25 rb.budget+nb.visibility.all+NB.DEM.MEM+nb.og.norm 1.000 0.671
## 26 rb.budget+nb.visibility.all+NB.GOV.DEPTH+nb.og.norm 1.000 0.671
## 27 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.OG.NORM 1.000 0.671
## 28 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.DEM.MEM 1.000 0.671
## 29 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.GOV.DEPTH 1.000 0.671
## 30 rb.budget+RB.INEQUALITY+NB.DEM.MEM+nb.og.norm 1.000 0.671
## 31 rb.budget+RB.INEQUALITY+NB.GOV.DEPTH+nb.og.norm 1.000 0.671
## ---------------------------------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(27, 10:11, 13:17)], outcome = "ACTPART",
relation="nec", incl.cut=0.9, cov.cut=0.4, neg.out = T)##
## incl cov.r
## ----------------------------------------------------------------------------
## 1 nb.dem.mem 0.913 0.488
## 2 nb.gov.depth 1.000 0.469
## 3 nb.visibility.all 1.000 0.523
## 4 rb.budget 0.913 0.420
## 5 nb.gov.depth*nb.dem.mem 0.913 0.512
## 6 nb.visibility.hl*nb.dem.mem 0.913 0.525
## 7 nb.visibility.hl*nb.gov.depth 1.000 0.500
## 8 nb.visibility.all*nb.dem.mem 0.913 0.583
## 9 nb.visibility.all*nb.gov.depth 1.000 0.523
## 10 nb.visibility.all*nb.visibility.hl 1.000 0.523
## 11 rb.budget*nb.gov.depth 0.913 0.553
## 12 rb.budget*nb.visibility.hl 0.913 0.488
## 13 rb.budget*nb.visibility.all 0.913 0.618
## 14 nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.913 0.553
## 15 nb.visibility.all*nb.gov.depth*nb.dem.mem 0.913 0.583
## 16 nb.visibility.all*nb.visibility.hl*nb.dem.mem 0.913 0.583
## 17 nb.visibility.all*nb.visibility.hl*nb.gov.depth 1.000 0.523
## 18 rb.budget*nb.visibility.hl*nb.gov.depth 0.913 0.583
## 19 rb.budget*nb.visibility.all*nb.gov.depth 0.913 0.618
## 20 rb.budget*nb.visibility.all*nb.visibility.hl 0.913 0.618
## 21 nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem 0.913 0.583
## 22 rb.budget*nb.visibility.all*nb.visibility.hl*nb.gov.depth 0.913 0.618
## 23 RB.INEQUALITY+nb.og.norm 1.000 0.451
## ----------------------------------------------------------------------------# conservative solution
sc <- eqmcc(tt, show.cases = T, details = T)
sc$essential## [1] "rb.inequality*NB.VISIBILITY.ALL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM"
## [2] "rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.DEM.MEM*NB.OG.NORM"
## [3] "rb.inequality*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*nb.gov.depth*nb.dem.mem*nb.og.norm"
## [4] "RB.BUDGET*rb.inequality*nb.visibility.all*nb.visibility.hl*nb.gov.depth*nb.dem.mem*nb.og.norm"
## [5] "RB.BUDGET*RB.INEQUALITY*nb.visibility.all*nb.visibility.hl*nb.gov.depth*NB.DEM.MEM*NB.OG.NORM"# intermediate solution
intermed.sol <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 7)))
intermed.sol##
## n OUT = 1/0/C: 32/38/0
## Total : 70
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*nb.og.norm
##
## Number of multiple-covered cases: 1
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*nb.og.norm + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART
##
## incl cov.r cov.u
## ----------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.532
## 2 RB.BUDGET*nb.og.norm 1.000 0.085 0.064
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 1.000 0.064 0.064
## ----------------------------------------------------------
## M1 1.000 0.681
##
## cases
## --------------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*nb.og.norm IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## --------------------------------------------
##
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*rb.inequality
##
## Number of multiple-covered cases: 10
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*rb.inequality + RB.BUDGET*NB.DEM.MEM*NB.OG.NORM
## => ACTPART
##
## incl cov.r cov.u
## -------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.340
## 2 RB.BUDGET*rb.inequality 1.000 0.277 0.064
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM 1.000 0.255 0.064
## -------------------------------------------------------
## M1 1.000 0.681
##
## cases
## -----------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*rb.inequality IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011
## -----------------------------------------
##
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*nb.og.norm
##
## Number of multiple-covered cases: 1
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*nb.og.norm + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART
##
## incl cov.r cov.u
## ----------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.532
## 2 RB.BUDGET*nb.og.norm 1.000 0.085 0.064
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 1.000 0.064 0.064
## ----------------------------------------------------------
## M1 1.000 0.681
##
## cases
## --------------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*nb.og.norm IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## --------------------------------------------
##
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*rb.inequality
##
## Number of multiple-covered cases: 10
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*rb.inequality + RB.BUDGET*NB.DEM.MEM*NB.OG.NORM
## => ACTPART
##
## incl cov.r cov.u
## -------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.340
## 2 RB.BUDGET*rb.inequality 1.000 0.277 0.064
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM 1.000 0.255 0.064
## -------------------------------------------------------
## M1 1.000 0.681
##
## cases
## -----------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*rb.inequality IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011
## -----------------------------------------
##
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*nb.og.norm
##
## Number of multiple-covered cases: 1
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*nb.og.norm + RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM
## => ACTPART
##
## incl cov.r cov.u
## ----------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.532
## 2 RB.BUDGET*nb.og.norm 1.000 0.085 0.064
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM 1.000 0.064 0.064
## ----------------------------------------------------------
## M1 1.000 0.681
##
## cases
## --------------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*nb.og.norm IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 3 RB.BUDGET*RB.INEQUALITY*NB.DEM.MEM OPCW2009,OPCW2010,OPCW2011
## --------------------------------------------
##
##
## p.sol: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + RB.BUDGET*rb.inequality
##
## Number of multiple-covered cases: 10
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*rb.inequality + RB.BUDGET*NB.DEM.MEM*NB.OG.NORM
## => ACTPART
##
## incl cov.r cov.u
## -------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.340
## 2 RB.BUDGET*rb.inequality 1.000 0.277 0.064
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM 1.000 0.255 0.064
## -------------------------------------------------------
## M1 1.000 0.681
##
## cases
## -----------------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*rb.inequality IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## 3 RB.BUDGET*NB.DEM.MEM*NB.OG.NORM IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1999,IAEA2000,IAEA2001; OPCW2009,OPCW2010,OPCW2011
## -----------------------------------------# parsimonious solution
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 32/38/0
## Total : 70
##
## Number of multiple-covered cases: 10
##
## M1: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + (RB.BUDGET*nb.og.norm) => ACTPART
## M2: NB.VISIBILITY.ALL + RB.BUDGET*NB.DEM.MEM + (RB.BUDGET*rb.inequality) => ACTPART
##
## -------------------
## incl cov.r cov.u (M1) (M2)
## -------------------------------------------------------------
## 1 NB.VISIBILITY.ALL 1.000 0.553 0.340 0.340 0.340
## 2 RB.BUDGET*NB.DEM.MEM 1.000 0.255 0.064 0.064 0.064
## -------------------------------------------------------------
## 3 RB.BUDGET*nb.og.norm 1.000 0.085 0.000 0.064
## 4 RB.BUDGET*rb.inequality 1.000 0.277 0.000 0.064
## -------------------------------------------------------------
## M1 1.000 0.681
## M2 1.000 0.681
##
## cases
## ---------------------------------
## 1 NB.VISIBILITY.ALL IAEA1989; IAEA1990; IAEA1991,IAEA1992; IAEA2004,IAEA2005,IAEA2006,IAEA2007,IAEA2008;
## IAEA1987,IAEA1988; IAEA2002,IAEA2003; IAEA2009,IAEA2010,IAEA2011;
## IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998; IAEA1986;
## IAEA1999,IAEA2000,IAEA2001
## 2 RB.BUDGET*NB.DEM.MEM IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998; IAEA1999,IAEA2000,IAEA2001;
## OPCW2009,OPCW2010,OPCW2011
## ---------------------------------
## 3 RB.BUDGET*nb.og.norm IAEA1983,IAEA1984,IAEA1985; IAEA1986
## 4 RB.BUDGET*rb.inequality IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001
## ---------------------------------
Transparency Action
data_qca$ACTTRANS <- data_qca$ACT.Trans # for QCA package conventions
tt <- truthTable(data_qca[c(28, 10:11, 13:17)],
outcome = c("ACTTRANS"), incl.cut1=0.8, sort.by="incl",
show.cases = TRUE)
# necessary conditions
superSubset(data_qca[c(28, 10:11, 13:17)], outcome = "ACTTRANS",
relation="nec", incl.cut=0.8, cov.cut=0.37)##
## incl cov.r
## ------------------------------------------------
## 1 NB.OG.NORM 0.824 0.378
## 2 NB.DEM.MEM 0.824 0.519
## 3 NB.DEM.MEM*NB.OG.NORM 0.824 0.519
## 4 rb.budget*NB.OG.NORM 0.824 0.667
## 5 rb.budget*NB.DEM.MEM 0.824 0.933
## 6 rb.budget*NB.DEM.MEM*NB.OG.NORM 0.824 0.933
## 7 RB.INEQUALITY+NB.GOV.DEPTH 0.824 0.389
## ------------------------------------------------# neg. outcome, to check for contradictions
superSubset(data_qca[c(28, 10:11, 13:17)], outcome = "ACTTRANS",
relation="nec", incl.cut=1, cov.cut=0.4, neg.out = T)##
## incl cov.r
## ---------------------------------------------------------------------------
## 1 nb.dem.mem+NB.OG.NORM 1.000 0.757
## 2 nb.gov.depth+NB.OG.NORM 1.000 0.757
## 3 NB.VISIBILITY.ALL+nb.gov.depth 1.000 0.757
## 4 NB.VISIBILITY.ALL+nb.visibility.hl 1.000 0.757
## 5 rb.inequality+NB.OG.NORM 1.000 0.757
## 6 rb.inequality+nb.gov.depth 1.000 0.791
## 7 rb.inequality+nb.visibility.hl 1.000 0.791
## 8 rb.inequality+nb.visibility.all 1.000 0.791
## 9 nb.visibility.hl+NB.DEM.MEM+nb.og.norm 1.000 0.757
## 10 nb.visibility.hl+nb.gov.depth+NB.DEM.MEM 1.000 0.757
## 11 nb.visibility.hl+NB.GOV.DEPTH+nb.og.norm 1.000 0.757
## 12 nb.visibility.hl+NB.GOV.DEPTH+nb.dem.mem 1.000 0.757
## 13 nb.visibility.all+NB.GOV.DEPTH+nb.dem.mem 1.000 0.757
## 14 RB.INEQUALITY+NB.GOV.DEPTH+nb.dem.mem 1.000 0.757
## 15 RB.INEQUALITY+NB.VISIBILITY.ALL+nb.og.norm 1.000 0.757
## 16 RB.INEQUALITY+NB.VISIBILITY.ALL+nb.dem.mem 1.000 0.757
## 17 rb.budget+nb.gov.depth+NB.DEM.MEM 1.000 0.757
## 18 RB.BUDGET+nb.gov.depth+nb.dem.mem 1.000 0.883
## 19 RB.BUDGET+nb.visibility.hl+nb.og.norm 1.000 0.815
## 20 RB.BUDGET+nb.visibility.hl+nb.dem.mem 1.000 0.815
## 21 RB.BUDGET+nb.visibility.hl+nb.gov.depth 1.000 0.815
## 22 RB.BUDGET+nb.visibility.all+nb.dem.mem 1.000 0.883
## 23 RB.BUDGET+RB.INEQUALITY+nb.dem.mem 1.000 0.841
## 24 rb.budget+nb.visibility.all+NB.DEM.MEM+nb.og.norm 1.000 0.757
## 25 rb.budget+nb.visibility.all+NB.GOV.DEPTH+nb.og.norm 1.000 0.757
## 26 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.OG.NORM 1.000 0.757
## 27 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.DEM.MEM 1.000 0.757
## 28 rb.budget+nb.visibility.all+NB.VISIBILITY.HL+NB.GOV.DEPTH 1.000 0.757
## 29 rb.budget+RB.INEQUALITY+NB.DEM.MEM+nb.og.norm 1.000 0.757
## 30 rb.budget+RB.INEQUALITY+NB.GOV.DEPTH+nb.og.norm 1.000 0.757
## ---------------------------------------------------------------------------
#sufficient condition, without democratic members
tt <- truthTable(data_qca[c(28, 10:11, 13:15, 17)],
outcome = c("ACTTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE)
# complex solution
eqmcc(tt, show.cases = TRUE, details = TRUE)##
## n OUT = 1/0/C: 5/65/0
## Total : 70
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM => ACTTRANS
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM 1.000 0.294 -
## --------------------------------------------------------------------------------------------
## M1 1.000 0.294
##
## cases
## ------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011
## ------------------------------------------------------------------------------# intermediate solution
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 6)))##
## n OUT = 1/0/C: 5/65/0
## Total : 70
##
## p.sol: rb.budget*NB.VISIBILITY.HL*NB.GOV.DEPTH
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM => ACTTRANS
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM 1.000 0.294 -
## --------------------------------------------------------------------------------------------
## M1 1.000 0.294
##
## cases
## ------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011
## ------------------------------------------------------------------------------
##
##
## p.sol: rb.budget*NB.VISIBILITY.HL*NB.OG.NORM
##
## Number of multiple-covered cases: 0
##
## M1: rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM => ACTTRANS
##
## incl cov.r cov.u
## --------------------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM 1.000 0.294 -
## --------------------------------------------------------------------------------------------
## M1 1.000 0.294
##
## cases
## ------------------------------------------------------------------------------
## 1 rb.budget*NB.VISIBILITY.ALL*NB.VISIBILITY.HL*NB.GOV.DEPTH*NB.OG.NORM IAEA2002,IAEA2003;
## IAEA2009,IAEA2010,IAEA2011
## ------------------------------------------------------------------------------# parsimonious solution
sc <- eqmcc(tt, include="?", show.cases = TRUE, details = TRUE)
sc$solution## [[1]]
## [1] "rb.budget*NB.VISIBILITY.HL*NB.GOV.DEPTH"
##
## [[2]]
## [1] "rb.budget*NB.VISIBILITY.HL*NB.OG.NORM"# neg. outcome, to check for contradictions
tt <- truthTable(data_qca[c(28, 10:11, 13:15, 17)],
outcome = c("ACTTRANS"), incl.cut1=1, sort.by="incl",
show.cases = TRUE, neg.out = T)
eqmcc(tt, include="?", show.cases = TRUE, details = TRUE,
dir.exp = c(rep(1, 6)))##
## n OUT = 1/0/C: 24/46/0
## Total : 70
##
## p.sol: RB.BUDGET + NB.VISIBILITY.ALL*nb.gov.depth
##
## Number of multiple-covered cases: 1
##
## M1: RB.BUDGET + NB.VISIBILITY.ALL*nb.gov.depth => acttrans
##
## incl cov.r cov.u
## ------------------------------------------------------
## 1 RB.BUDGET 1.000 0.377 0.358
## 2 NB.VISIBILITY.ALL*nb.gov.depth 1.000 0.094 0.075
## ------------------------------------------------------
## M1 1.000 0.453
##
## cases
## ----------------------------------------
## 1 RB.BUDGET IAEA1983,IAEA1984,IAEA1985; IAEA1993,IAEA1994,IAEA1995,IAEA1996,IAEA1997,IAEA1998;
## IAEA1986; IAEA1999,IAEA2000,IAEA2001; OPCW1999,OPCW2000,OPCW2001,OPCW2002,OPCW2009,OPCW2010,OPCW2011
## 2 NB.VISIBILITY.ALL*nb.gov.depth IAEA1989; IAEA1990; IAEA1987,IAEA1988; IAEA1986
## ----------------------------------------Dusa, Adrian and Alrik Thiem (2014). QCA: A Package for Qualitative Comparative Analysis. R package version 1.1-3. URL: http://cran.r-project.org/package=QCA. Fellows, Ian (2014). wordcloud: Word Clouds. R package version 2.5. URL: http://CRAN.R-project.org/package=wordcloud. Fox, John and Sanford Weisberg (2011). An {R} Companion to Applied Regression, Second Edition. Thousand Oaks CA: Sage. URL: http://socserv.socsci.mcmaster.ca/jfox/Books/Companion. Huang, Ronggui. (2014). QCA3: Yet another package for Qualitative Comparative Analysis. R package version 0.0-7. URL: http://asrr.r-forge.r-project.org/. Quaranta, Mario (2013). SetMethods: A Package Companion to “Set-Theoretic Methods for the Social Sciences”. R package version 1.0. URL: http://CRAN.R-project.org/package=SetMethods.↩