выделять строки в случайном интервале

Question

Я пытаюсь взять последовательность дат - и начиная с первой даты - выбрать последующие даты случайным числом, сгенерированным из нормального распределения.На данный момент у меня есть код, который выбирает номер строки случайным числом, но каждый раз использует одно и то же число.В этом примере он выбирает строку каждые 12 дней:

set.seed(123)

library(tidyverse)
library(lubridate)

start_date <- as.Date('2018-03-01')
end_date <- as.Date('2018-07-01')

seq_dates <- seq(ymd(start_date), ymd(end_date), by='1 days')

seq_dates <- seq_dates %>%
  as.tibble()
seq_dates

seq_dates %>% 
  filter(row_number() %% round(rnorm(n=1, mean=14, sd=3), 0) == 1) 

Есть ли способ, которым я могу сделать это с помощью dplyr, но каждый раз выбирать строку из начальной даты через произвольный интервал?Таким образом, с 2018-03-01 следующая дата может быть через 12 дней, затем через 14 дней, затем через 19 дней и т. Д.

Answer 1

library(dplyr)

set.seed(10) 
n <- rnorm(50, 14, 3)
rows <- cumsum(round(n, 0))
diff(rows) # random ~normal increments used when selecting your rows
#  [1] 13 10 12 15 15 10 13  9 13 17 16 13 17 16 14 11 13 17 15 12  7 12  8 10 13 12 11 14 13  8 14 17
# [33] 15 10 10 15  9 13 12 17 12 12 17 11 14 15 13 12 16

seq_dates %>% 
  slice(rows[rows <= n()])
# # A tibble: 9 x 1
#   value     
#   <date>    
# 1 2018-03-14
# 2 2018-03-27
# 3 2018-04-06
# 4 2018-04-18
# 5 2018-05-03
# 6 2018-05-18
# 7 2018-05-28
# 8 2018-06-10
# 9 2018-06-19