Plot Wealth Dynamics

Visualize agent wealth evolution over simulation time.

plot_wealth_dynamics(simulation_results, n_sample = 50)

Arguments

simulation_results

ANNEM simulation results

n_sample

Number of agents to sample for individual trajectories (default: 50)

Value

List containing ggplot objects

Examples

if (FALSE) { # \dontrun{
market <- create_annem_market(n_agents = 100)
results <- market$run_simulation(n_steps = 50)
plots <- plot_wealth_dynamics(results)
} # }