# \donttest{
data <- list(scores_X = matrix(rnorm(100), ncol = 2),
scores_Y = matrix(rnorm(100), ncol = 2))
tmp_file <- file.path(tempdir(), "test_plot.pdf")
visualize_factor_dynamics_simple(data, output_file = tmp_file)
# }
Run the code above in your browser using DataLab