In: Statistics and Probability
Consider the np-chart for n=50, LCL=1.515, and UCL=18.485.
Derive the β-risk as a function of p and derive the approximate β-risk by the normal approximation.
Draw the OC curve under p0, two negative shifts of p, and two positive shifts of p
Now the oc curve for the shifts are
The R code for obtaining of curve:
p=c(.05,.1,.2,.4,.6)
beta_risk=pnorm(18.485,50*p,50*p*(1-p))-pnorm(1.515,50*p,50*p*(1-p))
plot(p,beta_risk,type="l",main="oc curve")