Как сделать так, чтобы значения этого фрейма постепенно увеличивались? Ex. вторая равна первой + секунда и т. д., как непрерывное время

Question

Я пишу свой код так:

HoraLLamadaSimulado2 <- function(n = 50)
{
  tiempodellamada <- 0
  x <- 1
  HORA <- 0
  vec1 <- data.frame()
  while (x < n)
  {
    tiempoentrellamada <- (runif(n, 1000, 1010))
    LLX <- tiempoentrellamada
    HORA <- as.POSIXct(LLX, origin = "2019-01-01", tz = "GMT")
    #HORA <- HORA + tiempoentrellamada
    vec1 <- data.frame(HORA)
    x <- x + 1
  }
  return(vec1)
}
HoraLLamadaSimulado2()

И вот что я получаю. Это равномерное распределение в 50 раз. Я не могу сделать сумму, чтобы сделать это непрерывным временем.

HORA 2019-01-01 00: 16: 46
2019-01-01 00: 16: 46
2019-01-01 00: 16: 43
2019-01-01 00: 16: 47
2019-01-01 00: 16: 47
2019-01-01 00: 16: 47
2019-01-01 00: 16: 47
2019-01-01 00: 16: 48
2019-01-01 00: 16: 48
2019-01-01 00:16:43

Answer 1

Как насчет использования cumsum:

set.seed(42)
as.POSIXct(cumsum(runif(10, 1000, 1010)), origin = "2019-01-01")
#  [1] "2018-12-31 16:16:49 PST" "2018-12-31 16:33:38 PST"
#  [3] "2018-12-31 16:50:21 PST" "2018-12-31 17:07:09 PST"
#  [5] "2018-12-31 17:23:56 PST" "2018-12-31 17:40:41 PST"
#  [7] "2018-12-31 17:57:28 PST" "2018-12-31 18:14:10 PST"
#  [9] "2018-12-31 18:30:56 PST" "2018-12-31 18:47:43 PST"