# NOT RUN {
# Conduct the analysis assuming no montonicity
# for the true endpoint, using a range of
# upper bounds for prediction errors
FANO<-Fano.BinBin(pi1_ = 0.5951 , pi_1 = 0.7745,
fano_delta=c(0.05, 0.1, 0.2), M=1000)
plot(FANO, Type="Scatter",color=c(3,4,5),Cex.Position="bottom")
# }
Run the code above in your browser using DataLab