inst/benchmarks/time_call.R

In igraph: Network Analysis and Visualization

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)
          }  })