Preguntas etiquetadas con rcpp

Tengo un gran problema de rendimiento en R. Escribí una función que itera sobre un data.frameobjeto. Simplemente agrega una nueva columna a a data.framey acumula algo. (operación simple). El data.frametiene aproximadamente 850K filas. Mi PC todavía funciona (aproximadamente 10 horas ahora) y no tengo idea sobre el tiempo de ejecución. …

193 performance  r  loops  rcpp  r-faq 

Cerrado. Esta pregunta no cumple con las pautas de Stack Overflow . Actualmente no acepta respuestas. ¿Quieres mejorar esta pregunta? Actualice la pregunta para que esté relacionada con el tema de Stack Overflow. Cerrado hace 3 años . Mejora esta pregunta ¿Cuál es el mejor recurso para aprender a escribir …

115 r  rcpp 

Actualmente estoy trabajando en un método bayesiano que requiere múltiples pasos de optimización de un modelo logit multinomial por iteración. Estoy usando optim () para realizar esas optimizaciones, y una función objetivo escrita en R. Un perfil reveló que optim () es el principal cuello de botella. Después de investigar, …

16 c++  r  optimization  rcpp 

Comúnmente trabajo con una función Rcpp corta que toma como entrada una matriz donde cada fila contiene K probabilidades que suman 1. La función muestra aleatoriamente para cada fila un número entero entre 1 y K correspondiente a las probabilidades proporcionadas. Esta es la función: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> using …

9 r  rcpp  rcpparmadillo 

Considere 1) una clase personalizada con una impresión de memoria potencialmente grande, y 2) una función de nivel superior que realiza un preprocesamiento, luego crea y devuelve un nuevo objeto de nuestra clase personalizada. Para evitar una copia innecesaria por valor, la función asigna el objeto y le devuelve un …

9 c++  r  rcpp 

¿Cómo puedo pasar un valor de NA de Rcpp a R en un vector de 64 bits? Mi primer enfoque sería: // [[Rcpp::export]] Rcpp::NumericVector foo() { Rcpp::NumericVector res(2); int64_t val = 1234567890123456789; std::memcpy(&(res[0]), &(val), sizeof(double)); res[1] = NA_REAL; res.attr("class") = "integer64"; return res; } Pero rinde #> foo() integer64 [1] …

8 r  rcpp  na  bit64 

En una función, quiero calcular valores numéricos, darles nombres y devolver un orden NumericVectoren Rcpp. Puedo ordenar los vectores (usando esto ), pero el orden de los nombres de los valores sigue siendo el mismo. library(Rcpp) x <- c(a = 1, b = 5, c = 3) cppFunction(' NumericVector foo(NumericVector …

8 r  rcpp