set.seed(123)
direct <- data.frame(
Year = 2000:2005,
A = runif(6, 100, 200),
B = runif(6, 100, 200)
)
production <- data.frame(
Year = 2000:2005,
A = runif(6, 100, 200),
B = runif(6, 100, 200)
)
matrices <- prepare_log_matrices(direct, production)
str(matrices)
Run the code above in your browser using DataLab