Perguntas com a marcação «rcpp»

Eu tenho um grande problema de desempenho em R. Eu escrevi uma função que itera sobre um data.frameobjeto. Ele simplesmente adiciona uma nova coluna a data.framee acumula algo. (operação simples). O data.frametem aproximadamente 850K linhas. Meu PC ainda está funcionando (cerca de 10 horas agora) e não faço ideia do …

193 performance  r  loops  rcpp  r-faq 

Fechadas. Esta pergunta não atende às diretrizes do Stack Overflow . Atualmente não está aceitando respostas. Quer melhorar esta questão? Atualize a pergunta para que esteja no tópico do Stack Overflow. Fechado há 3 anos . Melhore esta questão Qual é o melhor recurso para aprender a escrever código C …

115 r  rcpp 

Atualmente, estou trabalhando em um método bayesiano que requer várias etapas de otimização de um modelo de logit multinomial por iteração. Estou usando o optim () para realizar essas otimizações e uma função objetiva escrita em R. Uma criação de perfil revelou que o optim () é o principal gargalo. …

16 c++  r  optimization  rcpp 

Normalmente, trabalho com uma função Rcpp curta que recebe como entrada uma matriz em que cada linha contém K probabilidades que somam 1. A função então amostra aleatoriamente para cada linha um número inteiro entre 1 e K correspondente às probabilidades fornecidas. Esta é a função: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> …

9 r  rcpp  rcpparmadillo 

Considere 1) uma classe personalizada com uma impressão de memória potencialmente grande e 2) uma função de nível superior que realiza algum pré-processamento, depois cria e retorna um novo objeto de nossa classe personalizada. Para evitar cópias desnecessárias por valor, a função aloca o objeto e retorna um ponteiro para …

9 c++  r  rcpp 

Como posso passar um valor de NA de Rcpp para R em um vetor de 64 bits? Minha primeira abordagem seria: // [[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; } Mas produz #> foo() integer64 [1] …

8 r  rcpp  na  bit64 

Em uma função, desejo calcular valores numéricos, atribuir nomes a eles e retornar um ordenado NumericVectorem Rcpp. Posso classificar os vetores (usando isso ), mas a ordem dos nomes dos valores permanece a mesma. library(Rcpp) x <- c(a = 1, b = 5, c = 3) cppFunction(' NumericVector foo(NumericVector x) …

8 r  rcpp