devilsf: Create a devil shift and angel shift matrix.

In huhn1234/vogeltools: Utilities for the social network analysis

Description

devilsf returns the devil shift and angel shift matrix

Usage

devilsf(
  mat = mat,
  pol = pol,
  score.std = "none",
  exp.method = "both",
  eval.method = "realized",
  alpha = NULL,
  score.norm = FALSE
)

Arguments

mat	the matrix showing the influence checked by the row actors to column actors.
pol	the scale indicating the policy preference.
score.std	string indicating the method of standardizing the policy prefrence. score.std is "none" by default.
exp.method	string indicating the method for calculating the degree of overestimation.
eval.method	string indicating the method to evaluate the overestimation.
alpha	cut-off value when binalize the devil shift and angel shift matrix. alpha is NULL by default.
score.norm	logical; should the engel- and devil shift score normalized by the total number of influence checked in the matrix. score.norm is FALSE by default.

Details

Two devil shift and angel shift matrix is created from the two scale:(1) the degree that the ego perceives the others more powerful than they actually are (overestimation of powerfulness) and (2) the degree of opponents (devilness) as well as proponents (angelness) from the perspective of respondents (egos). Several options are available that need to be adjusted based on the assumption of the researcher.

Examples

mat <- matrix(c(0,0,0,1,1,1,
                1,1,1,0,0,0,
                1,0,0,1,0,0,
                1,1,1,0,0,0,
                0,0,0,1,1,1,
                1,0,0,1,0,0),6,6,byrow = TRUE)
namelabel <- c(paste(rep("A",3), 1:3, sep = ""),
               paste(rep("B",3), 1:3, sep = ""))
dimnames(mat) <- list(namelabel, namelabel)

pol <- c(1,1,0.6,0.4,0,0)
names(pol) <- namelabel
res <- devilsf(mat, pol,
              score.std = "none",
              exp.method ="both",
              eval.method = "realized",
              alpha = NULL,
              score.norm = FALSE)

res$original.mat
res$exp.mat
res$eval.exp.mat
res$pol.dis
res$pol.agg
res$devil.mat
res$angel.mat

huhn1234/vogeltools documentation built on Jan. 17, 2020, 5:21 p.m.