# 1. Parameter settings
shape <- 2.5    # Shape parameter k (k > 0)
scale <- 1.8    # Scale parameter λ (λ > 0)
n <- 1000       # Number of samples to generate
seed <- 2023    # Random seed (to ensure reproducibility)
μ0 <- runif(1, min=0.001, max=2.65)    # Generate the location parameter μ₀
# 2. Set the random seed (to ensure result reproducibility)
set.seed(seed)
# 3. Generate Weibull random numbers
weibull_data <- rweibull(n = n, shape = shape, scale = scale)

