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

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

design_info <- set_design_info(k_levels=3, j_factor=2, n_unit=170, 
                               censor_time=1000, p=0.001, use_cond=c(0, 0), sigma=0.6734, 
                               reparam=FALSE)

pso_info <- pso_setting(n_swarm=60, max_iter=300, early_stopping=50, 
                        tol=0.0001)

set.seed(5)
example2_locally_optimal <- find_optimal_alt(design_type=1, distribution=1, 
                                             design_info=design_info, pso_info=pso_info, 
                                             coef=c(15.808, -11.249, -3.006), verbose = TRUE, n_threads = 12)


summary(example2_locally_optimal)

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