https://github.com/cran/IQCC
Tip revision: 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC
version 0.5
version 0.5
Tip revision: 53c14e2
c4.R
c4 <- function(n)
{
c <- (sqrt(2 / (n-1))) * (gamma(n/2) / gamma((n-1) / 2))
return(c)
}