https://github.com/cran/IQCC
Tip revision: 015c96430f6bddf3c9b4b20d878ceae380a023be authored by Emanuel P. Barbosa on 21 September 2009, 00:00:00 UTC
version 1.0
version 1.0
Tip revision: 015c964
T2subII.R
T2subII <-
function(datum2,estat,n){
media<-colMeans(datum2)
T2<-n*(t(media-estat[[1]])%*%solve(estat[[2]])%*%(media-estat[[1]]))
return(T2)
}
