Stuff
public text v1 · immutable> x<-pbinom(c(60), size=150, prob=0.5, lower.tail=FALSE)
> y<-pbinom(c(90), size=150, prob=0.5, lower.tail=FALSE)
> y-x
[1] -0.9856404> x<-pbinom(c(60), size=150, prob=0.5, lower.tail=FALSE)
> y<-pbinom(c(90), size=150, prob=0.5, lower.tail=FALSE)
> y-x
[1] -0.9856404