tests/testthat/test-locally-optimal-design-1factor.R

In minimaxALT: Generate Optimal Designs of Accelerated Life Test using PSO-Based Algorithm

design_info <- set_design_info(k_levels=2, j_factor=1, n_unit=300, 
                               censor_time=183, p=0.1, use_cond=0, sigma=0.6)

pso_info <- pso_setting(n_swarm=32, max_iter=128, early_stopping=10, 
                        tol=0.0001)

set.seed(4)
example1_locally_optimal <- find_optimal_alt(design_type=1, distribution=1, 
                                             design_info=design_info, pso_info=pso_info, 
                                             coef = c(0.001, 0.9),
                                             verbose = FALSE,
                                             n_threads = 12)

summary(example1_locally_optimal)

plot(example1_locally_optimal, x_l=0, x_h=1)