# setup.R
library(APRScenario)
library(zoo)
library(dplyr)

# Load test data
data("NKdata", package = "APRScenario")

# Basic setup for testing - no model estimation
varbls <<- names(NKdata)[-1]
X0 <<- NKdata[, varbls]

# Create minimal test matrices for package functions
n_var <<- 3
n_p <<- 4
n_draws <<- 10  # minimal for testing