time_group(".Call from R")
time_that("Redefining .Call does not have much overhead #1", replications=10,
init = { library(igraph) ; g <- graph.ring(100) },
{ for (i in 1:20000) {
.Call(R_igraph_vcount, g)
} })
time_that("Redefining .Call does not have much overhead #1", replications=10,
init = { library(igraph) ; g <- graph.ring(100) },
{ for (i in 1:20000) {
igraph:::.Call(R_igraph_vcount, g)
} })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.