Plot expected number of events
opcharNPlot(harmbound)line plot with the expected number of events for all alternatives
harmbound<-getHarmBound(nevents=seq(10,100,by=10),alpha_test=0.025,
pH0=0.5,pH1=seq(0.5,0.8,by=0.05),maxevents=150)
opcharNPlot(harmbound)