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 Sun Jun 23 20:23:25 CEST 2024.