лучший способ конвертировать DataFrame в матрицу в RCpp

Question

У меня есть код RCpp, где в части кода я пытаюсь преобразовать DataFrame в матрицу. DataFrame имеет только номера (без строк или дат).

Следующий код работает:

//[[Rcpp::export]] 
NumericMatrix testDFtoNM1(DataFrame x) { 
    int nRows=x.nrows(); 
    NumericMatrix y(nRows,x.size()); 
    for (int i=0; i<x.size();i++) { 
    y(_,i)=NumericVector(x[i]); 
    } 
    return y; 
} 

мне было интересно, если есть альтернативный способ (т.е. эквивалент as.matrix в R) в RCpp делать то же самое, что-то похожее на следующий код ниже (который не делает работа):

//[[Rcpp::export]] 
NumericMatrix testDFtoNM(DataFrame x) { 
    NumericMatrix y(x); 
    return y; 
} 

* EDIT *

Спасибо за ответы. Как предложил Дирк, код C++ примерно в 24 раза быстрее, чем любой из двух ответов, а версия Function на 2% быстрее, чем версия internal::convert_using_rfunction.

Первоначально я искал ответ в RCpp без вызова R. Должно было сделать это ясно, когда я разместил свой вопрос.

Answer 1

Подобно версии Габора, вы можете сделать что-то вроде этого:

#include <Rcpp.h> 
using namespace Rcpp ; 

//[[Rcpp::export]] 
NumericMatrix testDFtoNM(DataFrame x) { 
    NumericMatrix y = internal::convert_using_rfunction(x, "as.matrix"); 
    return y; 
} 

Answer 2

Если вы не против обратного вызова в R может быть сделано компактно так:

#include <Rcpp.h> 
using namespace Rcpp; 

// [[Rcpp::export]] 
NumericMatrix DF2mat(DataFrame x) { 
    Function asMatrix("as.matrix"); 
    return asMatrix(x); 
} 

UPDATE комментарий Incorporated Ромен в.