4

我正在尝试从Rcpp网页编译简单的Rcpp 示例inline

Rcpp::NumericVector orig(vector);                  
Rcpp::NumericVector vec(orig.size());          
std::transform(orig.begin(),orig.end(),vec.begin(),sqrt);

return Rcpp::List::create(Rcpp::Named("result")=vec,Rcpp::Named("original") =orig);

但是我收到以下错误:

no matching function for call to 'transform(Rcpp::traits::storage_type<14>::type*, Rcpp::traits::storage_type<14>::type*, Rcpp::traits::storage_type<14>::type*, <unresolved overloaded function type>)

我正在使用带有 Rtools 的 Windows XP(其他没有 STL 的示例有效!),带有 R 2.12.0。

4

1 回答 1

6

啊。sqrt()现在在 Rcpp 糖中重载,因此您需要显式引用从 C 导入的全局 C++ 命名空间中的符号。因此请尝试以下行:

std::transform(orig.begin(),orig.end(),vec.begin(),::sqrt);

它在这里工作:

R> require(inline)
R> src <- '
+     Rcpp::NumericVector orig(vector);
+     Rcpp::NumericVector vec(orig.size());
+     std::transform(orig.begin(), orig.end(), vec.begin(), ::sqrt);
+     return Rcpp::List::create(Rcpp::Named("result") = vec,
+                               Rcpp::Named("original") = orig);
+ '
R> fun <- cxxfunction(signature(vector="numeric"), src, plugin="Rcpp")
R> fun(1:9)
$result
[1] 1.00000 1.41421 1.73205 2.00000 2.23607 2.44949 2.64575 2.82843 3.00000

$original
[1] 1 2 3 4 5 6 7 8 9

R> 

您能否将需要更新的页面/示例的 URL 发送给我?

于 2011-03-14T14:19:10.950 回答