tests/testthat/test-centrality_indices.R

In signnet: Methods to Analyse Signed Networks

test_that("degree error no graph works",{
  expect_error(degree_signed(g=5))
})

test_that("degree error no sign works",{
  g <- igraph::graph.full(5,FALSE)
  expect_error(degree_signed(g))
})

test_that("degree error directed works",{
  g <- igraph::graph.full(5,TRUE)
  igraph::E(g)$sign <- 1
  expect_error(degree_signed(g,mode="all"))
})

test_that("pos degree works", {
  g <- igraph::graph.full(4)
  igraph::E(g)$sign <- c(-1,1,1,-1,-1,1)
  expect_equal(degree_signed(g,mode="all",type="pos"),c(2,0,2,2))
})

test_that("neg degree works", {
  g <- igraph::graph.full(4)
  igraph::E(g)$sign <- c(-1,1,1,-1,-1,1)
  expect_equal(degree_signed(g,mode="all",type="neg"),c(1,3,1,1))
})

test_that("pos degree works", {
  g <- igraph::graph.full(4)
  igraph::E(g)$sign <- c(-1,1,1,-1,-1,1)
  expect_equal(degree_signed(g,mode="all",type="pos"),c(2,0,2,2))
})

test_that("net in degree works", {
  g <- igraph::graph.full(4,directed = TRUE)
  igraph::E(g)$sign <- rep(c(-1,1,1,-1,-1,1),2)
  expect_equal(degree_signed(g,mode="in",type="net"),c(-3,-1,1,3))
})

test_that("net out degree works", {
  g <- igraph::graph.full(4,directed = TRUE)
  igraph::E(g)$sign <- rep(c(-1,1,1,-1,-1,1),2)
  expect_equal(degree_signed(g,mode="out",type="net"),c(1,-1,1,-1))
})

test_that("pn index error no graph works",{
  expect_error(pn_index(g=5))
})

test_that("pn index error no sign works",{
  g <- igraph::graph.full(5,FALSE)
  expect_error(pn_index(g))
})

test_that("pn index error directed works",{
  g <- igraph::graph.full(5,TRUE)
  igraph::E(g)$sign <- 1
  expect_error(pn_index(g,mode="all"))
})

test_that("pn index works",{
  g <- igraph::graph.full(5,FALSE)
  igraph::E(g)$sign <- 1
  expect_equal(pn_index(g,mode="in"),c(2, 2, 2, 2, 2))
})

test_that("evcent not graph error works",{
  expect_error(eigen_centrality_signed(g = 5))
})

test_that("evcent no sign error works",{
  g <- igraph::graph.full(5)
  expect_error(eigen_centrality_signed(g))
})

test_that("evcent not dominant works",{
  A <- matrix(c( 0,  1,  1, -1,  0,  0, -1,  0,  0,
                 1,  0,  1,  0, -1,  0,  0, -1,  0,
                 1,  1,  0,  0,  0, -1,  0,  0, -1,
                 -1,  0,  0,  0,  1,  1, -1,  0,  0,
                 0, -1,  0,  1,  0,  1,  0, -1,  0,
                 0,  0, -1,  1,  1,  0,  0,  0, -1,
                 -1,  0,  0, -1,  0,  0,  0,  1,  1,
                 0, -1,  0,  0, -1,  0,  1,  0,  1,
                 0,  0, -1,  0,  0, -1,  1,  1, 0), 9, 9)
  g <- graph_from_adjacency_matrix_signed(A,"undirected")
  expect_error(eigen_centrality_signed(g))
})

test_that("evcent works",{
  g <- igraph::graph.full(5)
  igraph::E(g)$sign <- 1
  igraph::E(g)$sign[1] <- -1
  ev <- abs(round(eigen_centrality_signed(g, scale = TRUE),8))
  ev_true <- c(0.68614066, 0.68614066, 1, 1, 1)
  expect_equal(stats::cor(ev,ev_true),1)
})

test_that("evcent no scale works",{
  g <- igraph::graph.full(5)
  igraph::E(g)$sign <- 1
  igraph::E(g)$sign[1] <- -1
  ev <- abs(round(eigen_centrality_signed(g, scale = FALSE),8))
  ev_true <- c(0.34560347, 0.34560347, 0.50369186, 0.50369186, 0.50369186)
  expect_equal(stats::cor(ev,ev_true),1)
})