https://github.com/cran/IQCC
Revision 53c14e2d35deeae90e359b99cad0db06d573eb53 authored by Emanuel P. Barbosa on 10 March 2010, 00:00:00 UTC, committed by Gabor Csardi on 10 March 2010, 00:00:00 UTC
0 parent
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
d3.R
d3 <- function(n)
{
d2 <- d2(n)
e <- vector()
for(i in 1:length(n))
{
int <- integrate(function(w) { w * (1 - ptukey(w, n[i], Inf)) }, 0, Inf)
e <- append(e, sqrt(2 * int[[1]] - (d2[1]) ^ 2))
}
return(e)
}
Computing file changes ...