inst/snippet/binomtest-power05.R

p <- seq(0,1,by=0.02);
power <- 1 - ( pbinom(60,100,p) - pbinom(39,100,p) );
myplot <- xyplot(power~p,ylab="power",xlab=expression(pi[a]),
            type='l', lwd=2);

Try the fastR package in your browser

Any scripts or data that you put into this service are public.

fastR documentation built on May 1, 2019, 11:18 p.m.