Question

我的问题：

我在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) * (K/theta)));
        }
        b[i] = k *bu[i];
        c[i] = k * pow(z, m[i]) * fmax(((pow((s/K), theta) - 1) * (K/theta)), ((pow((x*pow(h, m[i])/K), theta) - 1) * (K/theta)));
    }

    return wrap(a-b-c);
}

我使用命令

在R（或RStudio）中编译

sourceCpp(<path to file>/vector.cpp)

它汇编 - 到目前为止一切顺利。但是，当我继续在其他R函数中使用函数l5时，它经常导致R崩溃（在RStudio和普通R GUI中）。事实上，评估它本身并不是更稳定。要重现这一点，例如尝试多次评估l6

l6 <- function(zs, ks, ss, Ks, thetas, xs, hs){
    z=zs
    k=ks
    s=ss
    K=Ks
    theta=thetas
    x=xs
    h=hs
    m=0:30
    res <- l5(z, k, s, K, theta,x, h, m)
return(res)
}

并运行

l6(0.9, 0.1, 67, 40, 0.5, 44, 1.06)

具体来说，它会产生以下运行时错误

This application has requested Runtime to terminate it in an unusual way.

那我的功能有什么问题？

解决方案

正如Dirk在下面提到的那样，for循环中存在一个基本错误，其中我从0到n运行，因此有n + 1个元素，但我只初始化了长度为n的向量。为了避免这个错误，我现在使用迭代器

实现了这个功能

#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(NumericVector::iterator i = m.begin(); i != m.end(); ++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) * (K/theta)));
        }
        b[*i] = k *bu[*i];
        c[*i] = k * pow(z, m[*i]) * fmax(((pow((s/K), theta) - 1) * (K/theta)), ((pow((x*pow(h, m[*i])/K), theta) - 1) * (K/theta)));
    }

    return wrap(a-b-c);
}

再次感谢！

Answer 1

您正在犯一个基本的C / C ++错误：

for(int i=0; i<n+1; i++)

将被访问n+1次，但您分配了n个空格。

Rcpp功能崩溃

我的问题：

详细

解决方案

1 个答案: