set.seed(795014178)
streams <- 20
time <- 60
samples <- 15
mu0 <- 3
delta <- 3
library(dplyr)
turnstiles <- tibble(
turnstile = rep(rep(1:streams,each=samples),time),
hour = rep(1:time,each=streams * samples),
sample = rep(rep(1:samples), times = streams * time),
waitTime = rexp(streams * time * samples,rate=.22985)
) %>% mutate(waitTime = if_else(hour == 38, waitTime * 2,waitTime))
dataRead(turnstiles, timing="hour", streams="sample", VoI="waitTime", type="long", median0 = 3)
Run the code above in your browser using DataLab