> 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