Preciso traçar elipse de confiança no fim desta sequencia, queria saber como entro com os dados, que está no último comando abaixo:
Data set:https://www.dropbox.com/s/405ggda0h6scnie/marajoara320amostras.txt
 
marajoara<-read.table('marajoara320amostras.txt')
 
=======NORMALIZAÇÃO========
marajoara.norm<-sapply(data.frame(marajoara),scale)
 
=======CLUSTER=========
 
win.graph()
marajoara.norm.h<-hclust(dist(marajoara.norm)^2,method="ward")
plot(marajoara.norm.h,main="marajoara320amostras")
 
=======PCA========
 
win.graph()
initial<-tapply(marajoara.norm,list(rep(cutree(marajoara.norm.h,3),ncol(marajoara.norm)),col(marajoara.norm)),mean)
marajoara.norm.km1<-kmeans(marajoara.norm,initial)
marajoara.norm.pca<-princomp(marajoara.norm)
marajoara.norm.px<-predict(marajoara.norm.pca)
library(MASS)
eqscplot(marajoara.norm.px[,1:2],type="n",xlab="componente 1",ylab="componente 2")
text(marajoara.norm.px[,1:2],labels=as.character(marajoara.norm.km1$cluster),col=as.numeric(marajoara.norm.km1$cluster))
title("marajoara320amostras")
 
# identificar amostras no gráfico de PCA
 
identify(marajoara.norm.px[,1:2])
 
# Ellipse no gráfico de PCA (********DUVIDA*********)
 
library(ellipse)
plot(ellipse(marajoara.norm.px, centre = ???, t = ???), type = "???")