rcpp

    0熱度

    1回答

    我正在使用C數組,我需要在我的代碼中的某個點將它們轉換爲Rcpp::NumericVector。我嘗試了下面的代碼,但它會拋出一個錯誤(無法從double [5]轉換爲鍵入'SEXP')。什麼是從C數組轉換爲NumericVector的正確方法? library(Rcpp) cppFunction( ' NumericVector fun() { double data[5] = {

    0熱度

    1回答

    我想在r中使用rcpp編碼一個簡單的函數。我搞清楚通過http://adv-r.had.co.nz/Rcpp.html的語法和使用的糖的功能,但不能得到以下工作: cppFunction('NumericMatrix fun(NumericMatrix x) { NumericMatrix dd = (exp(-(pow(x, 2))/2)*(3 - 6*pow(x, 2) + pow(

    0熱度

    1回答

    我有一個RCPP包的結構如下: # SeqLib # |-----src # |-----SeqLib(a submodule) -configure script 我有一個包含配置腳本的子模塊。我將如何通過Makevars文件或其他方式指定它的執行情況。 更新: Detailed structure: # SeqLib # |-----src # |---

    0熱度

    2回答

    我是Rcpp的新手,我試圖編寫一個簡單的函數,該函數將獲取字符向量列表(myList)和一個單獨的字符向量(vec1),並返回交集列表每個列表向量和vec1之間。 我在R中可以很輕鬆地做到這一點: myList <- list( c('apple','banana','orange','pineapple'), c('pear','pineapple','waterm

    0熱度

    1回答

    調用C++函數時,我有一個C++函數稱爲「file1.cpp」,看起來像: #include <cmath> #include <stdio.h> #include <RcppArmadillo.h> #include <boost/math/special_functions/gamma.hpp> #include <mpi.h> #include <Rcpp.h> using na

    0熱度

    1回答

    我有R代碼將矩陣()對象傳遞給參數爲NumericMatrix的Rcpp函數。 C++函數提供了正確的尺寸,但是我也可以將NumericMatrix索引超出其尺寸而沒有錯誤。爲什麼會發生?下面的MWE(在RStudio中創建的一個.cpp文件),後面跟着我看到的輸出的一個實例,其中第三行很明顯(?)從數組邊界之外的內存中讀取。 #include <RcppArmadillo.h> using n

    5熱度

    2回答

    在Ubuntu上使用Travis-CI的official R project build支持(在此問題發生時)gcc版本4.6。 CRAN使用gcc 4.9並且一些在CRAN上構建良好的包將不會在Travis上構建,其中包含gcc 4.6。 如何更改R項目/包構建的默認gcc編譯器以更接近鏡像CRAN構建?

    1熱度

    3回答

    我有兩個矩陣,我想將它們放在一起,使得得到的矩陣的每個值都是前兩個矩陣中相同列的滾動和積。 x<-matrix(seq(1:30), ncol=3) x [,1] [,2] [,3] [1,] 1 11 21 [2,] 2 12 22 [3,] 3 13 23 [4,] 4 14 24 [5,] 5 15 25 [6,] 6 16 26 [7,] 7 17 27 [8

    0熱度

    1回答

    考慮這種比較: require(Rcpp) require(microbenchmark) cppFunction('int cppFun (int x) {return x;}') RFun = function(x) x x=as.integer(2) microbenchmark(RFun=RFun(x),cppFun=cppFun(x),times=1e5) Unit:

    1熱度

    4回答

    我有一個R函數,它需要一個排序日期向量(降序),它返回向量中連續日期之間的平均時間差。我正試圖將這個R函數轉換成一個Rcpp函數。 這是我到目前爲止有: sorted_dates <- as.Date(c("2015-09-25", "2015-06-12", "2015-06-12", "2015-03-26")) mean_time_difference <- func