# \donttest{
# Generate stripe patterns with default parameters
patterns <- simulate_stripe_patterns()
# Custom parameters
patterns <- simulate_stripe_patterns(
grid_size = 80,
gap_seq = c(10, 20),
width_seq = c(5, 10, 20),
theta_seq = c(0, 30, 60),
eps = 1e-9,
verbose = TRUE
)
# }
Run the code above in your browser using DataLab