1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
oldsample_1_0_0 <- function() {
..env.1.. <- new.env(parent = baseenv())
..env.1..$me <- list(
3,
TRUE,
c(0, 1, 2),
c(1, 2, 0),
c(0, 1, 2),
c(2, 0, 1),
seq(0, 3, by = 1),
seq(0, 3, by = 1),
list(
c(1, 0, 1),
list(name = "Ring graph", mutual = FALSE, circular = TRUE),
list(bar = c("A", "B", "C")),
list(foo = c("a", "b", "c"))
),
..env.1..
) %>%
structure(class = "igraph")
..env.1..$.__igraph_version__. <- "0.8.0"
..env.1..$myid <- "0fb28c05-9cc1-4a24-ba62-f5c319a3051b"
..env.1..$me
}
|
