tests/circle.R

library(RUbigraph)
if(isUbigraphRunning()) {
  clear()
  ids = sapply(1:10, newVertex, 'shape' = 'torus')

  newEdge(ids[1], ids[2], color = "red")

  edges = mapply(newEdge, ids, c(ids[-1], ids[1]))
}
omegahat/RUbigraph documentation built on May 24, 2019, 1:55 p.m.