dwww Home | Show directory contents | Find package

context("Random walks")

test_that("undirected random_walk works", {

  set.seed(42)
  g <- make_ring(10)
  w <- random_walk(g, start = 1, steps = 10)
  expect_equivalent(w, structure(c(1L, 10L, 9L, 8L, 9L, 10L, 9L, 10L,
                                   1L, 10L), class = "igraph.vs"))

})

test_that("directed random_walk works", {

  set.seed(42)
  g <- make_ring(10, directed = TRUE)
  w <- as_ids(random_walk(g, start = 1, steps = 5))
  expect_equal(w, 1:5)

  w2 <- as_ids(random_walk(g, start = 5, steps = 5, mode = "in"))
  expect_equal(w2, 5:1)

  set.seed(42)
  w3 <- as_ids(random_walk(g, start = 1, steps = 5, mode = "all"))
  expect_equal(w3, c(1, 10, 9, 8, 9))

})

test_that("directed random_walk can return wtih an error when stuck", {
  set.seed(42)
  g <- make_star(11, mode="out")
  expect_error(random_walk(g, start = 7, steps = 10, stuck="error"), "Random walk got stuck")
})

test_that("undirected random_edge_walk works", {
  set.seed(42)
  g <- make_star(11, mode="undirected")
  w <- random_edge_walk(g, start = 1, steps = 10)
  expect_equivalent(w, structure(c(10L, 10L, 3L, 3L, 7L, 7L, 8L, 8L,
                                   7L, 7L), class = "igraph.es"))

  set.seed(42)
  g <- make_ring(10)
  w <- random_edge_walk(g, start = 1, steps = 10)
  expect_equivalent(w, structure(c(10L, 9L, 8L, 8L, 9L, 9L, 9L, 10L, 10L, 9L), class = "igraph.es"))
})

test_that("directed random_edge_walk works", {
  g <- make_star(11, mode="out")

  set.seed(42)
  w <- random_edge_walk(g, start = 1, steps = 10)
  expect_equivalent(w, structure(c(10L), class = "igraph.es"))

  set.seed(42)
  w <- random_edge_walk(g, start = 7, steps = 10)
  expect_equivalent(w, structure(list(), class = "igraph.es"))

  g <- make_ring(10, directed = TRUE)

  set.seed(42)
  w <- random_edge_walk(g, start = 1, steps = 5)
  expect_equivalent(w, structure(c(1L, 2L, 3L, 4L, 5L), class = "igraph.es"))

  set.seed(42)
  w <- random_edge_walk(g, start = 1, steps = 5, mode = "in")
  expect_equivalent(w, structure(c(10L, 9L, 8L, 7L, 6L), class = "igraph.es"))

  set.seed(42)
  w <- random_edge_walk(g, start = 1, steps = 10, mode = "all")
  expect_equivalent(w, structure(c(10L, 9L, 8L, 8L, 9L, 9L, 9L, 10L, 10L, 9L), class = "igraph.es"))
})

test_that("directed random_edge_walk can return wtih an error when stuck", {
  set.seed(42)
  g <- make_star(11, mode = "out")
  expect_error(random_edge_walk(g, start = 7, steps = 10, stuck="error"), "Random walk got stuck")
})

Generated by dwww version 1.15 on Fri Jun 14 22:52:48 CEST 2024.