https://github.com/cran/IQCC
Raw File
Tip revision: 015c96430f6bddf3c9b4b20d878ceae380a023be authored by Emanuel P. Barbosa on 21 September 2009, 00:00:00 UTC
version 1.0
Tip revision: 015c964
T2subI.R
T2subI <-
function(estat,m,n){
t2<-vector()
for (i in 1:m)
{T2<-n*(t(estat[[3]][i,]-estat[[1]])%*%solve(estat[[2]])%*%(estat[[3]][i,]-estat[[1]]))
t2<-c(t2,T2)
}
return(t2)
}

back to top