r - 使用 Rcpp 重新编码循环(递归)
问题描述
我必须用 R 计算一个 for 循环数 100.000 次,并想用 Rcpp (或替代方案)优化它:
for (t in 1:num) {
Xt<- c(t(yt[.N:(.N-h)]))
yt<- rbindlist(list(yt, as.list(Xt %*% coeff)))
}
Xt %*% coeff
是矩阵乘法。
在与 Rcpp 苦苦挣扎之后......是否有任何提示如何使用 Rcpp 重新编码?这很容易吗,因为 Xt 的计算对我来说并非易事。
我还实现了一个 R 递归函数,它并不比这个循环快。
谢谢
解决方案
推荐阅读
- c++ - 适用于头文件的函数别名
- javascript - div style =“value%”的错误,因为它没有执行
- javascript - 如何从ID更改为class?
- java - 按两个条件排序
- google-chrome-extension - 有没有办法让扩展以兼容模式或以管理员身份打开 Windows 本机应用程序
- r - R:打印所有最长递增子序列(LIS)
- java - 不推荐使用 HttpMethod getResponseBodyAsString 但为什么
- automation - Protractor Chrome 无头混合内容问题
- android - 无法使用 Androidx Artifacts 在 Android Studio 3.3 上成功构建新项目?
- ruby - Sinatra 中的嵌套 Liquid 模板