powered by
PchartII(x, sizes, phat, length)
data(binomdata) attach(binomdata) pchI<-PchartI(x=Di[1:12],sizes=ni[1:12],par=pi[1:12],12) PchartII(Di[13:25],sizes=ni[13:25],phat=pchI[1],length=13)
Run the code above in your browser using DataLab