init <- get_initial_design(
theta = 0.3,
alpha = 0.025,
beta = 0.2,
type_design="two-stage",
type_c2="linear_decreasing",
type_n2="linear_increasing",
dist=Normal(),
cf=0.7,
info_ratio=0.5,
slope=23,
weight = 1/sqrt(3)
)
Run the code above in your browser using DataLab