Rcppでの整数のシーケンス

Question

行列内のインデックス付けのための整数のシーケンスを作成したいと思います。 Rペンダントは、次のようになります。

no matching function for call to 'seq_along(const int&, const int&)' 

方法：私はエラーメッセージを取得しかし

#include <Rcpp.h> 
#include <algorithm> 
#include <vector> 
#include <numeric> 
using namespace Rcpp; 
using namespace std; 


// [[Rcpp::export]] 
NumericVector test(NumericVector x) { 
    IntegerVector indexRow = Rcpp::seq_along(max(0, 1), min(1, 12)); 
} 

：

indexRow <- max(0,1):min(2,12) 
matrix1[indexRow, ] 

これは私が整数のシーケンスを作成するためにRcppにしようとしたものですRcppに整数のシーケンスを作成できますか？ここ

Answer 1

が可能Rcpp実装で第1及び整数系列の最後の数：

library(Rcpp) 
cppFunction(plugins='cpp11','NumericVector myseq(int &first, int &last) { 
NumericVector y(abs(last - first) + 1); 
if (first < last) 
    std::iota(y.begin(), y.end(), first); 
else { 
    std::iota(y.begin(), y.end(), last); 
    std::reverse(y.begin(), y.end()); 
} 
return y; 
}') 
#> myseq(max(0,1), min(13,17)) 
#[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 

このコードは2つの引数を取る関数myseqを生成します。これは、2つの整数引数seq(first, last)で呼び出されたRのseq関数に似ています。

C++ 11関数std::iotaのドキュメントはhereです。

Answer 2

seq_alongは、ベクトルを取ります。使用するベクターはseqで、minとmaxの両方がベクターになります。 seqはIntegerVectorを返します。ここに例があります。あなたはまた、

> test(c(0,1), c(2,12)) 
[1] 1 2