Eu tenho uma lista em R que x <-list (c (1,2,3), c (4,5), c (5,5), c (6)). Eu quero inserir a lista para Rcpp e retorná-los como um vetor médio, c (2, 4,5, 5, 6).

Não sei como lidar com a lista no Rcpp. Recebi uma mensagem de erro, alguém poderia verificar meu código?

library(inline)

fx = cxxfunction(signature(x='List'), body = 
'
    Rcpp::List xlist(x);
    int n = xlist.size();
    double res[n];

    for(int i=0; i<n; i++) {
        Rcpp NumericVector y(xlist[i]);
        int m=y.size();
        res[i]=0;
        for(int j=0; j<m; j++){
            res[i]=res[i]+y[j]  
        }
    }

  return(wrap(res));
'
, plugin='Rcpp')

x<-list(c(1,2,3), c(4,5), c(5,5), c(6))
fx(x)