# \donttest{
# Generate and visualize patterns
sim_data <- simulate_stripe_patterns(
grid_size = 80,
gap_seq = c(10, 20),
width_seq = c(5, 10, 20),
theta_seq = c(0, 30, 60)
)
plot_grid <- visualize_stripe_patterns(sim_data,
gap_seq = c(10, 20),
width_seq = c(5, 10, 20),
theta_seq = c(0, 30, 60))
print(plot_grid)
# }
Run the code above in your browser using DataLab