tests/testthat/test-graphs_degree.R

In tjtnew/graphr: Random Graph Generation

context("given degree distribution graph generation")
library(graphR)

# test --------------------------------------------------------------------
test_that("Returned degree distribution is correct", {

  # params
  N <- 100
  deg <- c(rep(1,50),rep(2,50))

  # generate graph
  graph <- given_degree_matrix(N, deg)

  # calculate degree distribution
  degree_dist <- colSums(graph)
  degree_dist <- degree_dist[order(degree_dist)]

  # expect
  expect_equal(deg, degree_dist)
})


# test --------------------------------------------------------------------
test_that("Returned matrix is symmetric", {

  # params
  N <- 100
  deg <- c(rep(1,50),rep(2,50))

  # generate graph
  graph <- given_degree_matrix(N, deg)

  # expect
  expect_true(isSymmetric(graph))


})


# test --------------------------------------------------------------------
test_that("Returned matrix is square and of correct size", {

  # params
  N <- 20
  avk <- 4
  deg <- rep(avk, N)

  # generate graph
  graph <- given_degree_matrix(N, deg)

  # rows equal to N
  expect_equal(nrow(graph), N)

  # cols equal to N
  expect_equal(ncol(graph), N)

})