tests/testthat/helper-aoristic.R

In aoristic: Generates Aoristic Probability Distributions

make_events <- function(from, to, tz = "UTC", x = 1, y = 1) {
  size <- max(length(from), length(to), length(x), length(y))
  data.frame(
    x = rep(x, length.out = size),
    y = rep(y, length.out = size),
    from = as.POSIXct(from, tz = tz),
    to = as.POSIXct(to, tz = tz)
  )
}

run_aoristic <- function(data) {
  suppressMessages(aoristic.df(data, "x", "y", "from", "to"))
}

hour_values <- function(result) {
  as.numeric(result[1, paste0("hour", seq_len(168))])
}