The consolidation of Democracy.

Share:

Description

Data used in "The consolidation of democracy: comparing Europe and Latin America", Schneider (2009).

Usage

1

Format

A data frame with 32 observations on the following 20 variables.

country

a factor of countray names

label

a factor of country labels

CODPERCENTAGE

a numeric vector

cod

a numeric vector

GDP

a numeric vector

econdev

a numeric vector

EDUCATION

a numeric vector

eduhi

a numeric vector

ETHNOLING

a numeric vector

ethlihom

a numeric vector

DIST

a numeric vector

close

a numeric vector

DEMYEARS

a numeric vector

demex

a numeric vector

COMYEARS

a numeric vector

nocom

a numeric vector

parlia

a numeric vector

PARTYNUMBER

a numeric vector

efpahi

a numeric vector

decent

a numeric vector

Source

This data set is kindly provided by Prof Schneider.

References

Schneider, 2009, "The consolidation of democracy: comparing Europe and Latin America". Routledge.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
data(CoD)
# Examples from Chapter 7
### table 6.2 in p77
cond <- c("econdev","eduhi","ethlihom","close","demex","nocom","parlia","efpahi","decent")
round(apply(CoD[, cond], 2, FUN=function(x) consistency(x,CoD$cod,'great')),3)
round(apply(CoD[, cond], 2, FUN=function(x) consistency(1-x,CoD$cod,'great')),3)
round(apply(CoD[, cond], 2, FUN=function(x) consistency(x,1-CoD$cod,'great')),3)
round(apply(CoD[, cond], 2, FUN=function(x)
    
consistency(1-x,1-CoD$cod,'great')),3)

round(apply(CoD[,c("econdev","demex")], 2, FUN=function(x) coverage(1-x,1-CoD$cod,'great')),3)
round(consistency(apply(1-CoD[,c("econdev","demex")],1,min),1-CoD$cod,'great'),3)
round(coverage(apply(1-CoD[,c("econdev","demex")],1,min),1-CoD$cod,'great'),3)

## QCA of remote conditions
reduce(CoD,'cod',c('econdev','ethlihom','close','demex','nocom'),'positive','include',
       case='label',pre='fs_truthTable',keep=FALSE)

## consitency of remote conditions as sufficent condition (table 6.4 in p82)
round(apply(CoD[,c("econdev","ethlihom","nocom")], 2, 
           FUN=function(x) consistency(x,CoD$cod,'less')),3)
           
round(apply(CoD[,c("econdev","ethlihom","nocom")], 2, 
          FUN=function(x) coverage(x,CoD$cod,'less')),3)
          
round(consistency(apply(CoD[,c("econdev","ethlihom","nocom")],1,max),CoD$cod),3)
round(coverage(apply(CoD[,c("econdev","ethlihom","nocom")],1,max),CoD$cod),3)

## table 6.4 in page 82
fs=fs_truthTable(CoD,'cod',c('econdev','eduhi','ethlihom','close','demex','nocom'),case='label')
fs <- sort(fs,,"Consistency")
tb6.4 <- reduce(fs,remainder='include')

## table 6.6 in page 86
reduce(CoD,'cod', cond=c('parlia','efpahi','decent'),'positive','include',
       case='label',pre='fs_truthTable')
       
reduce(CoD,'cod',c('econdev','ethlihom','nocom','parlia','efpahi','decent'),'positive','include',
       case='label',pre='fs_truthTable')

## table 6.7 in pp87-88
fs_truthTable(CoD,'cod',c('econdev','ethlihom','nocom','parlia','efpahi','decent'),case='label')