gpt4 book ai didi

c++ - 如何将多个对象从 Rcpp 返回到 R?

转载 作者:行者123 更新时间:2023-11-30 01:45:44 26 4
gpt4 key购买 nike

<分区>

这可能是一个非常基本的请求,但我在 R 中有一个 Rcpp 函数,它计算我想传回给 R 的各种矩阵。我的代码如下所示:

zeromatrix <- matrix(0,6,1)
east <- matrix(seq(1:48),6,8)
west <- matrix(seq(1:48),6,8)
func <- 'NumericMatrix eastC(NumericMatrix e, NumericMatrix w, NumericMatrix zeromatrix) {
int ecoln=e.ncol();
int ecolnlessone = ecoln - 1;
NumericMatrix eout(e.nrow(),e.ncol()) ;
for (int j = 0;j < ecoln;j++) {
if (j > 0) {
eout(_,j) = e(_,j-1);
} else {
eout(_,j) = e(_,0);
}
}
eout(_,0) = zeromatrix(_,0);
return eout;

NumericMatrix wout(w.nrow(),w.ncol()) ;
for (int j = 0;j < ecoln;j++) {
if (j < ecolnlessone) {
wout(_,j) = w(_,j+1);
} else {
wout(_,j) = w(_,j);
}
}
wout(_,ecolnlessone) = zeromatrix(_,0);
return wout;
}'
cppFunction(func)

d <- eastC(east, west, zeromatrix)

我希望将“eout”和“wout”都传回 R,但显然只有最后返回的值被传回(即 wout)。所以d变成了wout。如何提取多个对象(即本例中的 eout 和 wout)?我确实在 Dirk 的 Rcpp 介绍表中看到了一些关于 list(ret) 的内容,但是当我尝试这个时,我的代码无法编译。任何帮助将不胜感激?

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com