小编pfi*_*fas的帖子

我的问题:

我在64位Windows7 PC上使用R.3.0.1和RStudio 0.97.551,我已经开始使用Rcpp将函数外包给C/C++.该函数编译,但在R函数内对其进行评估会产生运行时错误.我无法找出原因以及如何解决这个问题.

细节

下面是我的cpp文件...让我们说它叫做"vector.cpp"

#include <Rcpp.h>

using namespace Rcpp;

// [[Rcpp::export]]
NumericVector l5(double z, double k, double s, double K, double theta, double x, double h, NumericVector m){
    int n = m.size();
    NumericVector a(n);
    NumericVector bu(n);
    NumericVector b(n);
    NumericVector c(n);
    for(int i=0; i<n+1; i++){
        a[i] = pow(z,m[i]) * (pow((x*pow(h,m[i])/K), theta) - 1) * (K/theta);
        for (int j=0; j<i; j++){
            bu[i] += pow(z,j) * (1 - z) * fmax(((pow((s/K), theta) - 1) * (K/theta)), ((pow((x*pow(h, j)/K), theta) - 1) …