#' @rdname spc.constant.calculation.D3
# d3 originally borrowed from SixSigma package
spc.constant.calculation.d3 <- function(
sample.size
) {
sapply(sample.size, FUN = function(i) {
d3.f <- function(x) {
x * (1 - ptukey(x, i, Inf))
}
d3.tmp <- integrate(d3.f, 0, Inf)$value*2
#d3.tmp
sqrt(d3.tmp-spc.constant.calculation.d2(i)^2)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.