mu<-c(5.682,88.22)
Sigma<-symMatrix(c(3.770,-5.495,13.53),2)
datum<-dataindI(50,mu,Sigma,2)
estat<-estatauxind(datum,50,2)
# T2 is the matrix with the values of T2 statistic.
T2<-T2indI(estat,50)
graphindI(T2,50,2)
Run the code above in your browser using DataLab