https://github.com/cran/IQCC
Raw File
Tip revision: 015c96430f6bddf3c9b4b20d878ceae380a023be authored by Emanuel P. Barbosa on 21 September 2009, 00:00:00 UTC
version 1.0
Tip revision: 015c964
Sexact.R
Sexact <-
function(x,m){
qcc(x, type="S",limits=c((sqrt(qchisq(0.00135,m-1)/(m-1)))*sd.S(x),(sqrt(qchisq(0.99865,m-1)/(m-1)))*sd.S(x)))
}

back to top