https://github.com/cran/IQCC
Raw File
Tip revision: 5c6e6dea621fd5b486441c5e649098ad5a6549e6 authored by Flavio Barros on 15 November 2017, 21:16:12 UTC
version 0.7
Tip revision: 5c6e6de
d2.R
#' D2 Constant.
#' 
#' This function is used to calculate the mean of the sample relative range (W
#' statistic).
#' 
#' 
#' @param n The sample size.
#' @return Return the value of d2 for a given sample size n.
#' @export
#' @author Daniela R. Recchia, Emanuel P. Barbosa
#' @seealso \link{d3},\link{c4}
#' @examples
#' 
#' d2(8)
#' 
d2 <- function(n)
{
    d <- vector()
    for(i in 1:length(n))
    {
        int <- integrate(function(w) {1 - ptukey(w, n[i], Inf)}, 0, Inf)
        d <- append(d, int[[1]])
    }
    return(d)
}
back to top