max_samp=15 ##Change to larger size
Cohort=3
ptrue=c(0.01,0.05,0.15,0.3,0.45,0.5,0.6,0.8)
##Skeletons for 8 doses
mu1=c(0.02,0.06,0.08,0.12,0.2,0.3,0.4,0.5)
mu2=c(0.01,0.05,0.09,0.14,0.18,0.22,0.26,0.30)
mu3=c(0.10,0.20,0.30,0.40,0.50,0.60,0.70,0.80)
mu4=c(0.20,0.30,0.40,0.50,0.60,0.65,0.70,0.75)
mu_mat=matrix(c(mu1,mu2,mu3,mu4),nrow = 4,byrow = TRUE)
p_rho=0.9
sigma = 2
mtd = 0.3
p_u=0.9
B=200 ##Number of iterations, change to 2k
M=10 ##Number of simulations, change to larger
Z=MFBCRMSimTrial(max_samp,Cohort,ptrue,mu_mat,p_rho,sigma,mtd,p_u,B,M)
Z
Run the code above in your browser using DataLab