Skip to main content

Browse the archive

https://github.com/cran/IQCC
12 April 2021, 04:32:59 UTC
Revision 015c96430f6bddf3c9b4b20d878ceae380a023be authored by Emanuel P. Barbosa on 21 September 2009, 00:00:00 UTC, committed by Gabor Csardi on 21 September 2009, 00:00:00 UTC 
version 1.0
1 parent ef4202f
Raw File
Tip revision: 015c96430f6bddf3c9b4b20d878ceae380a023be authored by Emanuel P. Barbosa on 21 September 2009, 00:00:00 UTC
version 1.0
Tip revision: 015c964
UextII.R 
UextII <-
function(x,sizes,lambda,length){
q<-matrix(nrow=length,ncol=1); v<-matrix(nrow=length,ncol=1)
for(i in 1:length){
UCL<-lambda+(3*sqrt(lambda/sizes[i]))+(4/(3*sizes[i]))-(1/((3*sizes[i])*sqrt(lambda*sizes[i])))
q[i,]<-UCL
LCL<-lambda-(3*sqrt(lambda/sizes[i]))+(4/(3*sizes[i]))-(1/((3*sizes[i])*sqrt(lambda*sizes[i])))
v[i,]<-LCL}
qcc(x,type="u",sizes,limits=c(v,q),center=lambda,title="U exact phase II")
}
back to top