[R-br] Extraindo os raios e área de uma elipse ellipsoidhull() do pacote cluster

[ASANTOS]

Caros Membros,

     Com fins ilustrativos e exploratório, tenho pontos correspondentes 
a dois tratamentos A e B espacialmente distribuídos no campo, estou 
delimitando o limite (zona de influência) de cada um como uma elipse, 
através da função ellipsoidhull() do pacote cluster conforme CRM abaixo. 
Gostaria de saber se alguém familiarizado com a função poderia me dizer 
como faço para extrair os raios e as áreas das elipses EpointsA e EpointsB?


#Criação do data frame
dados<-NULL

#Coordenadas x

dados$x<-c(0.350,0.487,0.637,0.775,0.825,0.087,0.237,0.400,0.575,0.737,0.062,0.212)

#Coordenadas y
dados$y<-c(0.025,0.087,0.050,0.025,0.125,0.187,0.150,0.162,0.212,0.237,0.362,0.337)

#Classificação
dados$Class<-c("A","A","A","A","A","A","B","B","B","B","B","B")

#Visualização
plot(dados$x,dados$y)
text(dados$x,dados$y+0.01,labels=dados$Class,col="red")
#

#Usando ellipsoidhull
require(cluster)
PointsA<-unname(cbind(dados$x[1:6],dados$y[1:6]))
EpointsA<-ellipsoidhull(PointsA)
lines(predict(EpointsA), col="blue")
PointsB<-unname(cbind(dados$x[7:12],dados$y[7:12]))
EpointsB<-ellipsoidhull(PointsB)
lines(predict(EpointsB), col="orange")
#

Abraços,

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
OrcID: orcid.org/0000-0001-8232-6722   -   ResearcherID: A-5790-2016
Researchgate: www.researchgate.net/profile/Alexandre_Santos10
LinkedIn: br.linkedin.com/in/alexandre-dos-santos-87961635
Mendeley:www.mendeley.com/profiles/alexandre-dos-santos6/
======================================================================