Convert grid to proximity graph
1 |
1 2 3 4 5 6 7 8 9 10 | grid <- as.matrix(read.table(textConnection("
0 0 0 0 0 0
1 1 0 0 1 0
1 1 0 0 1 0
1 1 1 1 0 0
0 0 0 0 0 0
")))
g <- grid_to_graph(grid)
ssi(g$vertices, g$edges, group = 1)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.