0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
Rcpp
/
examples
/
ConvolveBenchmarks
/
[
Home
]
File: overhead.r
#!/usr/bin/env r set.seed(42) a <- rnorm(100) b <- rnorm(100) ## load shared libraries with wrapper code dyn.load("overhead_1.so") dyn.load("overhead_2.so") overhead_c_symbol <- getNativeSymbolInfo( "overhead_c" ) overhead_cpp_symbol <- getNativeSymbolInfo( "overhead_cpp" ) overhead_c <- function(a,b) .Call( overhead_c_symbol, a, b ) overhead_cpp <- function(a,b) .Call( overhead_cpp_symbol, a, b ) ## load benchmarkin helper function suppressMessages(library(rbenchmark)) res <- benchmark(overhead_cpp(a,b), overhead_c(a,b), columns=c("test", "replications", "elapsed", "relative", "user.self", "sys.self"), order="relative", replications=10000) print(res)