为了比较R函数和C++函数的速度，可以使用Rcpp包。Rcpp是一个为R提供C++接口的扩展包，它使R函数可以与以C++编写的函数交互并高效计算。

下面是一个示例，比较R中的sum()函数和C++中的equivalentSum()函数的计算时间：

首先，在R中定义一个sum()函数：

mySum <- function(x) {
  return(sum(x))
}

然后，在C++中用Rcpp定义一个相当的函数equivalentSum()：

#include 
using namespace Rcpp;

// [[Rcpp::export]]
double equivalentSum(NumericVector x) {
  int n = x.size();
  double res = 0;
  for(int i = 0; i < n; i++) {
    res += x[i];
  }
  return res;
}

最后，比较这两个函数的计算时间：

library(rbenchmark)
x <- rnorm(1000000)

benchmark(mySum(x),
          equivalentSum(x),
          replications=10,
          columns=c("test", "elapsed", "relative"))

# 输出结果如下：
#                test elapsed relative
# 1          mySum(x)   2.094    5.348
# 2 equivalentSum(x)   0.391    1.000

从结果可以看出，equivalentSum()函数比mySum()函数快了5倍左右。