Rcpp如何在每个单元格中给出给定长度的向量相同的值

Question

在下面的代码中，vectorTest 函数的 out 受限于 Tglobe 中的项目数。如所写，输出为 101。如果 Tglobe = c(100, 101)，则输出为 101, 102。

我想要做的是创建一个具有速度大小的向量并用相同的值填充它。换句话说，对于Tglobe <- 100，我希望输出为 101、102、103、104、105

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
Rcpp::NumericVector vectorTest(Rcpp::NumericVector Tglobe, Rcpp::NumericVector speed) {
  Rcpp::NumericVector test(speed.size(), NAN);
  test = Tglobe + speed;
  return(test);
}

/*** R
speed <- c(1,2,3,4,5)
Tglobe <- 100
vectorTest(Tglobe, speed)
*/

Answer 1

您的问题措辞有些奇怪。所以我把它读作

• 如何用给定的标量实例化一个向量？您已经回答了这个问题，尽管在其中添加了错误的值（NAN，甚至不是 C++ 常量）
• 如何添加两个向量？你也已经回答了
• 如何推广到输入向量（和返回矩阵）？留作练习。

代码

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::NumericVector vectorTest(double globe, Rcpp::NumericVector speed) {
    Rcpp::NumericVector globevec(speed.size(), globe);
    return globevec + speed;
}

/*** R
speed <- c(1,2,3,4,5)
Tglobe <- 100
vectorTest(Tglobe, speed)
*/

输出

> Rcpp::sourceCpp("~/git/stackoverflow/68784602/answer.cpp")

> speed <- c(1,2,3,4,5)

> Tglobe <- 100

> vectorTest(Tglobe, speed)
[1] 101 102 103 104 105
>