RRcpp属性
示例
Rcpp属性使使用R和C++的过程变得简单。属性的形式为:
//[[Rcpp::attribute]]
属性的使用通常与以下内容相关:
//[[Rcpp::export]]
通过读取C++文件时,将其直接放在声明的函数头的上方sourceCpp()。
以下是使用属性的外部C++文件的示例。
//将下面的代码添加到C++文件Rcpp_example.cpp中 #include <Rcpp.h> using namespace Rcpp; //将导出标签放置在函数声明上方。 //[[Rcpp::export]] double muRcpp(NumericVector x){ int n = x.size(); //向量大小 double sum = 0; //总和值 //对于循环,请注意cpp索引移至0 for(int i = 0; i < n; i++){ //sum的简写=sum+x[i] sum += x[i]; } return sum/n; //获取并返回均值 } //将依赖函数放在call或 //使用以下方法声明函数定义: double muRcpp(NumericVector x); //[[Rcpp::export]] double varRcpp(NumericVector x, bool bias = true){ //使用C++函数计算平均值 double mean = muRcpp(x); double sum = 0; int n = x.size(); for(int i = 0; i < n; i++){ sum += pow(x[i] - mean, 2.0); //广场 } return sum/(n-bias); //收益差异 }
要在R中使用此外部C++文件,请执行以下操作:
require(Rcpp) # Compile File sourceCpp("path/to/file/Rcpp_example.cpp") # Make some sample data x = 1:5 all.equal(muRcpp(x), mean(x)) ## TRUE all.equal(varRcpp(x), var(x)) ## TRUE