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
T2.2.R
T2.2 <- function(datum2, estat, n)
{
if(n == 1)
{
T2 <- (t(datum2 - estat[[1]]) %*% solve(estat[[2]]) %*% (datum2 - estat[[1]]))
}
if(n > 1)
{
media <- colMeans(datum2)
T2 <- n * (t(media - estat[[1]]) %*% solve(estat[[2]]) %*% (media - estat[[1]]))
}
return(T2)
}