# NOT RUN {
EPn(sided="one",stype="known",LSL=100,sigma=8,xbar=110,n=10)
EPn(sided="one",stype="unknown",LSL=225,xbar=255,s=15,n=42)
sample<-c(197,188,184,205,201)
EPn(sample,sided="one",USL=209)
sample<-c(197,188,184,205,201)
EPn(sample,sided="two",LSL=180,USL=209)
EPn(sided="two",stype="known",sigma=2,LSL=90,USL=100,xbar=96.68,n=21)
# }
Run the code above in your browser using DataLab