# NOT RUN {
# time consuming code part
CIGTS_27 <- comb27.BinBin(pi1_1_ = 0.3412, pi1_0_ = 0.2539, pi0_1_ = 0.119,
pi_1_1 = 0.6863, pi_1_0 = 0.0882, pi_0_1 = 0.0784,
Seed=1,Monotonicity=c("No"), M=500000)
plot.comb27.BinBin(CIGTS_27,lab="CIGTS")
# }
Run the code above in your browser using DataLab