regindep: Compute the regulatory independence of political actors

Description Usage Arguments Details Author(s) References See Also Examples

View source: R/regindep.R

Description

Compute the regulatory independence of political actors.

Usage

1
regindep(influence, reputation)

Arguments

influence

Influence network. A tie indicates that an actor exerts an influence on another actor. The data can be provided either as a network object as defined in the network package, or it can be provided as a (square and numeric) matrix where row actors influence column actors. Note that the diagonal should consist of 1s and that row and column labels should be equal.

reputation

Reputation network or, alternatively, a vector of reputation scores. In case a network is provided, a tie indicates that an actor deems another actor influential. The network can be provided either as a network object as defined in the network package, or it can be provided as a (square and numeric) matrix where row actors indicate which column actors they find influential. Note that row and column labels should be equal, and that they should correspond to the labels of the influence matrix. In case a numeric vector is provided, the values represent the aggregated reputation scores of the actors (as in figure 1 in the original article).

Details

The regindep function computes the regulatory independence of actors in a policy domain, as defined in the JEPP article of Ingold, Varone and Stokman (2013).

Author(s)

Philip Leifeld (http://www.philipleifeld.de)

References

Ingold, Karin, Frederic Varone and Frans Stokman (2013). A Social Network Based Approach to Assess De Facto Independence of Regulatory Agencies. Journal of European Public Policy. Forthcoming.

See Also

polnet-package

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
infl <- matrix(c(
    1, 1, 0, 1, 0, 
    1, 1, 1, 1, 0, 
    1, 0, 1, 1, 1, 
    0, 1, 0, 1, 1, 
    1, 1, 1, 0, 1
    ), nrow = 5, byrow = TRUE
)
rownames(infl) <- LETTERS[1:5]
colnames(infl) <- LETTERS[1:5]

repu <- c(A = 0.8, B = 0.6, C = 0.5, D = 0.4, E = 0.2)

output <- regindep(infl, repu)

output$weight.matrix  # show the weight matrix
output$impact         # show the impact scores
output                # show a summary of the output

polnet documentation built on May 2, 2019, 5:22 p.m.