# NOT RUN {
par( mfrow=c(3,2) )
shadePhat( 0.3, 20, 0.4 )
shadePhat( 0.3, 20, 0.4, lower.tail=FALSE )
shadePhat( c(0.65, 0.75), 30, 0.7, lower.tail=FALSE, xmin=0.4, xmax=1 )
shadePhat( c(0.65, 0.75), 30, 0.7, xmin=0.4, xmax=1, col=c("purple","orange") )
shadePhat( c(0.3, 0.4), 50, 0.35, xmin=0.1, xmax=0.6, col=c("blue","lightgreen") )
shadePhat( NULL, 10, 0.6, main = "Sample proportion" )
par( mfrow=c(1,1) )
# }
Run the code above in your browser using DataLab