# \donttest{
# Basic usage with simulated data
set.seed(123)
X <- matrix(rnorm(100 * 10), 100, 10)
Y <- X + matrix(rnorm(100 * 10, 0, 0.5), 100, 10)
results <- run_complete_factor_analysis_robust(
X_matrix = X,
Y_matrix = Y,
max_comp = 3,
dfm_lags = 1,
ou_chains = 4,
ou_iter = 2000,
verbose = FALSE
)
# View convergence summary
summary(results$convergence_tests)
# Visualize results
visualize_factor_dynamics(
dfm_result = results$dfm,
ou_result = results$factor_ou,
factors_data = results$factors
)
# }
Run the code above in your browser using DataLab