test_data = sim_dTBM(seed = 1, imat = FALSE, asymm = FALSE, p = c(50,50,50), r = c(3,3,3),
core_control = "control", s_min = 0.05, s_max = 1,
dist = "normal", sigma = 0.5,
theta_dist = "pareto", alpha = 4, beta = 3/4)
r_range = rbind(c(2,2,2), c(3,3,3),c(4,4,4),c(5,5,5))
selection <- select_r(test_data$Y, r_range, asymm = FALSE)
Run the code above in your browser using DataLab