data-raw/radio.R

In scmck17/sift: Easily highlight neighboring observations surrounding key rows

# At some point it would be nice to have x1 or x2 fluctuate a certain way depending upon x3

library(dplyr)
library(lubridate)

dates <- seq(as_datetime("1993-03-11"), as_datetime("1993-03-11") + ddays(20), by = duration(5))
l <- 1000
x <- seq(0, 1, length = length(dates))
p1 <- stats::dbeta(x, shape1 = 5, shape2 = 2)

set.seed(17)
time <- sample(dates, size = l, prob = p1)

set.seed(16)
x1 <- round(rnorm(l), 2)

set.seed(15)
x2 <- round(runif(l, 0, 1), 2)

n <- 4
p2 <- 0.01
p3 <- (1 - p2) / (n - 1)
p4 <- c(p2, rep(p3, n - 1))
set.seed(14)
x3 <- sample(LETTERS[1:n], size = l, prob = p4, replace = TRUE)

radio <- tibble(time, x1, x2, x3) %>%
  arrange(time)

usethis::use_data(radio, overwrite = TRUE)