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