# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.