13

R に x<-list(c(1,2,3), c(4,5), c(5,5), c(6)) というリストがあります。リストを Rcpp に入力し、平均ベクトル c(2, 4.5, 5, 6) として返します。

Rcpp でリストを処理する方法がわかりません。エラー メッセージが表示されたので、誰か私のコードを確認してもらえますか?

library(inline)

fx = cxxfunction(signature(x='List'), body = 
'
    Rcpp::List xlist(x);
    int n = xlist.size();
    double res[n];

    for(int i=0; i<n; i++) {
        Rcpp NumericVector y(xlist[i]);
        int m=y.size();
        res[i]=0;
        for(int j=0; j<m; j++){
            res[i]=res[i]+y[j]  
        }
    }

  return(wrap(res));
'
, plugin='Rcpp')

x<-list(c(1,2,3), c(4,5), c(5,5), c(6))
fx(x)
4

1 に答える 1

25

ここにいくつかの小さなエラーがあります:

  1. Rcpp::NumericVector2 つの構文エラー: forが必要yで、最後のループにセミコロンがありません。
  2. C++ の 1 つの誤解:コンパイル時に不明なstd::vector<double> res(n);asのようなものが必要です。n
  3. リストからベクトルをインスタンス化する際に積極的/楽観的すぎました.2つのステートメントでこれを行いました.

このバージョンは動作します:

R> fx <- cxxfunction(signature(x='List'), plugin='Rcpp', body = '  
+     Rcpp::List xlist(x); 
+     int n = xlist.size(); 
+     std::vector<double> res(n);   
+                                 
+     for(int i=0; i<n; i++) {     
+         SEXP ll = xlist[i]; 
+         Rcpp::NumericVector y(ll);  
+         int m=y.size();   
+         res[i]=0;         
+         for(int j=0; j<m; j++){     
+             res[i]=res[i]+y[j]; 
+         }    
+     } 
+       
+   return(Rcpp::wrap(res));    
+ ')  
R> x<-list(c(1,2,3), c(4,5), c(5,5), c(6)) 
R> fx(x)
[1]  6  9 10  6       
R>

編集：これはもう少し慣用的なバージョンです：

fx <- cxxfunction(signature(x='List'), plugin='Rcpp', body = '
    Rcpp::List xlist(x);
    int n = xlist.size();
    Rcpp::NumericVector res(n);

    for(int i=0; i<n; i++) {
        SEXP ll = xlist[i];
        Rcpp::NumericVector y(ll);
        for(int j=0; j<y.size(); j++){
            res[i] += y[j];
        }
    }

    return(res);
')
于 2012-10-04T19:41:27.107 に答える