rcpp

    0

    1答えて

    データ行列Xが与えられていれば、Xの任意の2つの行の間にペアワイズ距離行列を計算したいと思います。コードhereをわずかに調整した次のコードがあります。 #include <Rcpp.h> #include <cmath> #include <algorithm> using namespace Rcpp; // generic function for l1_distance tem

    0

    1答えて

    は私が #include <TMB.hpp> // Links in the TMB libraries template<class Type> Type objective_function<Type>::operator()() { DATA_VECTOR(x); // Data vector transmitted from R P

    1

    1答えて

    私はrの関数をRcppに変換しようとしています。途中で、私はベクトルのエントリの平均を計算する必要があります。これは、Rは平均(x)と同じくらいシンプルですが、Rcppでは機能しないように見え、毎回結果として0を返します。 cppFunction( "NumericVector fun(int n, double lambda, ...) { ... NumericVe

    1

    1答えて

    このウェブサイトまたはDirk、Hadleyまたは他の人が公表した注意事項に関するこれまでの説明に従いました。しかし、私はまだcpp11プラグインに関する問題のために私のパッケージを構築する際に問題があります。 RcppArmadillo.package.skeleton()機能を使用しました。私は自分のcppファイルをsrcディレクトリに置いています。 NAMESPACEファイルは、import

    1

    1答えて

    R-ユーザー、 私はおおよその計算の品質を評価するために、コンビナトリアル問題ブルートフォースを解決しようとしています。この目的のために、私は小さなR関数を書いています。これは、変数rに対して、r個のネストループといくつかのブレーク条件を含む非常に醜いrcpp関数を出力します。しかし、rが20以上の範囲になると、rcpp :: cppFunctionを使って関数をコンパイルするとコンパイルに時間が

    1

    1答えて

    以下のように文字データを数値に変換しようとしています。データには特別なキャラクターが付いてくるので、私はそれらを出さなければならない。私はデータをstd:stringに変換して特殊キャラクターを検索します。それはメモリ内に新しい変数を作成しますか?私はそれを行うより良い方法があるかどうかを知りたい。 NumericVector converter_ra_(Rcpp::RObject x){

    1

    1答えて

    アルマジロのウェブサイトによると、あなたは、このような X.each_col([](vec& a){ a.print(); }); として、.each_colにラムダ関数に渡すことができ、次のRcppががエラーを持っているようだ、「期待式」 #include <RcppArmadillo.h> // [[Rcpp::depends(RcppArmadillo)]] using namespa

    1

    2答えて

    は絶対に何もしない次のクラスを考えてみましょう: class MyNumVec { private: const NumericVector& x; public: MyNumVec(const NumericVector& y) : x(y) {} double operator[](int i) const { // here r

    2

    1答えて

    私はRProtoBufを正常にインストールしましたが、.protoファイルを読み込みしようとすると問題が発生します。以下は、私が午前問題のセッションキャプチャです: > library(RProtoBuf) > proto.dir<-"~/dev/riak_pb/src" > dir(proto.dir,pattern = "\\.proto$",full.names = TRUE) [1]

    1

    1答えて

    R関数をRcppに変換したいのですが、簡単なテストコードは次のようになりますが、設定されている引数をどのように扱うかわかりませんデフォルトではNULLです。 test<- function(t=NULL,tmax=NULL,tmin=NULL){ if(is.null(t)){ yout=(tmax-tmin)*(tmin+tmax) }else{ yout