X=c(3, 6, 3, 3, 3, 9, 15, 6)
Y=c(1, 0, 1, 0, 0, 2, 4, 5)
Cohort=3
##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
B=2000 ##Number of iterations
p_u=0.9
Z=GetMFBCRM(X, Y, Cohort, mu_mat, p_rho, sigma, mtd, B, p_u)
Z
Run the code above in your browser using DataLab