# There are 2 arms each of which receives 10 patients.
# The observed response means are 4.5 and 5, respectively.
# The following command returns the number of arm that the next patient will
# be assigned to.
DBCD_GAUSSIAN(Mean_RK = c(4.5,5),
SD_RK = c(1.32,0.72),
N_RK = c(10,10),
rho_func_index = 2, alpha=2)
DBCD_GAUSSIAN(Mean_RK = c(4.5,5),
SD_RK = c(1.32,0.72),
N_RK = c(10,10),
rho_func_index = 1, alpha=2)
Run the code above in your browser using DataLab