Skip to main content
Tweeted twitter.com/StackOverflowPT/status/1008368371220480000
adicionou 143 caracteres ao conteúdo
Fonte Link

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

Não sei como fazer para chamar a função apenas 1 vez e ter como resposta a saída normal dela e também o tempo de execução bastante preciso.

A função não é essa, mas segue um exemplo do meu problema:

teste <- function(x){
  
  Rprof()
  x <- x+2
  Rprof(NULL)

  return(summaryRprof())
}
guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){
  x <- x+2
  return(x)
}
guarda_x <- teste(2)
guarda_tempo <- teste(2)

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema:

teste <- function(x){
  
  Rprof()
  x <- x+2
  Rprof(NULL)

  return(summaryRprof())
}
guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){
  x <- x+2
  return(x)
}
guarda_x <- teste(2)
guarda_tempo <- teste(2)

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

Não sei como fazer para chamar a função apenas 1 vez e ter como resposta a saída normal dela e também o tempo de execução bastante preciso.

A função não é essa, mas segue um exemplo do meu problema:

teste <- function(x){
  
  Rprof()
  x <- x+2
  Rprof(NULL)

  return(summaryRprof())
}
guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){
  x <- x+2
  return(x)
}
guarda_x <- teste(2)
guarda_tempo <- teste(2)

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema: teste <- function(x){

Rprof() x <- x+2 Rprof(NULL)

return(summaryRprof()) } guarda_x_e_tempo <- teste(2)

teste <- function(x){
  
  Rprof()
  x <- x+2
  Rprof(NULL)

  return(summaryRprof())
}
guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){ x <- x+2 return(x) } guarda_x <- teste(2) guarda_tempo <- teste(2)

teste <- function(x){
  x <- x+2
  return(x)
}
guarda_x <- teste(2)
guarda_tempo <- teste(2)

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema: teste <- function(x){

Rprof() x <- x+2 Rprof(NULL)

return(summaryRprof()) } guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){ x <- x+2 return(x) } guarda_x <- teste(2) guarda_tempo <- teste(2)

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema:

teste <- function(x){
  
  Rprof()
  x <- x+2
  Rprof(NULL)

  return(summaryRprof())
}
guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){
  x <- x+2
  return(x)
}
guarda_x <- teste(2)
guarda_tempo <- teste(2)
Fonte Link

função no R que também retorna o próprio tempo de execução

Eu sei que existe o Rprof(), mas ele me parece bastante impreciso comparado ao microbenchmark(). Contudo, se quero usar o microbenchmark() eu tenho que chamar a função 2 vezes, uma para ter a saída dela e outra para executar o tempo dela (o que me parece bastante inviável)

A função não é essa, mas segue um exemplo do meu problema: teste <- function(x){

Rprof() x <- x+2 Rprof(NULL)

return(summaryRprof()) } guarda_x_e_tempo <- teste(2)

ou

teste <- function(x){ x <- x+2 return(x) } guarda_x <- teste(2) guarda_tempo <- teste(2)