dwww Home | Show directory contents | Find package

context("alpha_centrality")

test_that("dense alpha_centrality works", {
  library(igraph)
  g.1 <- graph( c(1,3,2,3,3,4,4,5) )
  ac1 <- alpha_centrality(g.1, sparse=FALSE)
  expect_that(ac1, equals(c(1, 1, 3, 4, 5)))
  
  g.2 <- graph( c(2,1,3,1,4,1,5,1) )
  ac2 <- alpha_centrality(g.2, sparse=FALSE)
  expect_that(ac2, equals(c(5,1,1,1,1)))
  
  g.3 <- graph( c(1,2,2,3,3,4,4,1,5,1) )
  ac3 <- alpha_centrality(g.3, alpha=0.5, sparse=FALSE)
  expect_that(ac3, equals(c(76, 68, 64, 62, 30)/30))
})

test_that("sparse alpha_centrality works", {
  if (require(Matrix, quietly=TRUE)) {
    library(igraph)
    g.1 <- graph( c(1,3,2,3,3,4,4,5) )
    ac1 <- alpha_centrality(g.1, sparse=TRUE)
    expect_that(ac1, equals(c(1, 1, 3, 4, 5)))
  
    g.2 <- graph( c(2,1,3,1,4,1,5,1) )
    ac2 <- alpha_centrality(g.2, sparse=TRUE)
    expect_that(ac2, equals(c(5,1,1,1,1)))
    
    g.3 <- graph( c(1,2,2,3,3,4,4,1,5,1) )
    ac3 <- alpha_centrality(g.3, alpha=0.5, sparse=TRUE)
    expect_that(ac3, equals(c(76, 68, 64, 62, 30)/30))
  }
})

##############################
## weighted version

test_that("weighted dense alpha_centrality works", {
  library(igraph)
  star <- make_star(10)
  E(star)$weight <- sample(ecount(star))

  ac1 <- alpha_centrality(star, sparse=FALSE)
  expect_that(ac1, equals(c(46, 1, 1, 1, 1, 1, 1, 1, 1, 1)))

  ac2 <- alpha_centrality(star, weights="weight", sparse=FALSE)
  expect_that(ac2, equals(c(46, 1, 1, 1, 1, 1, 1, 1, 1, 1)))
  
  ac3 <- alpha_centrality(star, weights=NA, sparse=FALSE)
  expect_that(ac3, equals(c(vcount(star), 1, 1, 1, 1, 1, 1, 1, 1, 1)))
})

test_that("weighted sparse alpha_centrality works", {
  if (require("Matrix", quietly=TRUE)) {
    library(igraph)
    star <- make_star(10)
    E(star)$weight <- sample(ecount(star))
    
    ac1 <- alpha_centrality(star, sparse=TRUE)
    expect_that(ac1, equals(c(46, 1, 1, 1, 1, 1, 1, 1, 1, 1)))
    
    ac2 <- alpha_centrality(star, weights="weight", sparse=TRUE)
    expect_that(ac2, equals(c(46, 1, 1, 1, 1, 1, 1, 1, 1, 1)))
    
    ac3 <- alpha_centrality(star, weights=NA, sparse=TRUE)
    expect_that(ac3, equals(c(vcount(star), 1, 1, 1, 1, 1, 1, 1, 1, 1)))
  }
})

test_that("undirected, alpha centrality works, #653", {
  if (require("Matrix", quietly = TRUE)) {
    library(igraph)
    g <- make_ring(10)

    ac1 <- alpha_centrality(g, sparse = TRUE)
    ac2 <- alpha_centrality(g, sparse = FALSE)
    expect_that(ac1, equals(ac2))

    g2 <- as.directed(g, mode="mutual")
    ac3 <- alpha_centrality(g, sparse = FALSE)
    expect_that(ac1, equals(ac3))
  }
})

Generated by dwww version 1.15 on Sun Jun 16 16:10:24 CEST 2024.