# \donttest{
# Generate and visualize patterns
sim_data <- simulate_multiscale(
Ra_seq = seq(2.5, 20, by = 2.5),
n_steps = 10
)
plot_grid <- visualize_multiscale(sim_data,
Ra_seq = seq(2.5, 20, by = 2.5),
n_steps = 10)
print(plot_grid)
# }
Run the code above in your browser using DataLab