dat_out <- insurgencies[1:100, ]
dat_out$time <- as.numeric(dat_out$date - min(dat_out$date) + 1)
# Hyperframe
dat_hfr <- get_hfr(data = dat_out,
col = "type",
window = iraq_window,
time_col = "time",
time_range = c(1, max(dat_out$time)),
coordinates = c("longitude", "latitude"),
combine = TRUE)
# Histories
lapply(1:nrow(dat_hfr), get_hist,
Xt = dat_hfr$all_outcome,
lag = 1, window = iraq_window)
Run the code above in your browser using DataLab