Hypervolumen der

8

Ich suche nach dem assymptotischen ( n ) Wert von ( dem Logarithmus der Determinante von) der Kovarianz der α % der Beobachtungen mit dem kleinsten eukledianischen Abstand zum Ursprung in einer Stichprobe der Größe n die beispielsweise aus einer Bivariate stammt Standard Gauß.

- Das Hypervolumen einer Ellipse ist proportional zur Determinante ihrer Kovarianzmatrix, daher der Titel .--

- Mit Standard bivariate Gaußsche meine ich wobei 0 2 ein Vektor von 0 der Länge 2 und I istN.2(02,ichich2)02 ist die Identitätsmatrix mit Rang 2 .---ichich2

Es ist einfach , durch Simulationen als zu sehen , wenn ist die Zahl um - 1.28 :α=52/.70- -1.28

library(MASS)
n<-10000
p<-2
x<-mvrnorm(n,rep(0,p),diag(2))
h<-ceiling(0.714286*n)
p<-ncol(x)
w<-mahalanobis(x,rep(0,p),diag(p),inverted=TRUE) #These are eucledian distances, because the covariance used is the identity matrix
s<-(1:n)[order(w)][1:h]
log(det(cov(x[s,])))

aber ich erinnere mich nicht, wie man dafür einen genauen Ausdruck erhält (oder wenn dies nicht gelingt, eine bessere Annäherung).

user603
quelle
1
In Ihrem Text sagen Sie nichts über die Parameter der bivariaten Verteilung. Es sieht auch so aus, als ob es in Ihrem Code um Mahalanobis d geht, nicht um Euklidisch d.
ttnphns
1
Mit Standard-Gauß meine ich die am Ursprung zentrierte und mit Identitätskovarianz (ich werde dies in bearbeiten). Mahalanobis-Abstand zur Identitätskovarianzmatrix == Eukledianische Abstände.
user603
1
Wenn Sie Code verwenden oder Hilfe mit Code suchen, geben Sie bitte an, welche Sprache oder welches Programm Sie verwenden.
Wolfies

Antworten:

7

Ok, diese Frage scheint von Zeit zu Zeit aufzutauchen, also werde ich eine allgemeine Antwort geben.

In [1] zeigen die Autoren, dass wenn mit Σ symmetrisch positiv definit und S αxxichN.p(μμ,ΣΣ),ich=1,,nΣS.α

(0)S.α={ich::(xxich- -μμ)'Σ- -1(xxich- -μμ)qα}}

für undqα=χp2(α),0<α1

(1)C.α=covichS.αxxich

C.αlαΣ

(2)lα=F.χp+22(qα)α

Diese Annäherung ist wirklich gut (hier für Alpha = 60/70):

library(MASS)
alpha<-60/70
p<-2
n<-1000000

radius<-sqrt(qchisq(alpha,df=p))
x0<-mvrnorm(n,rep(0,p),diag(p),empirical=TRUE)
Id<-which(rowSums(x0*x0)<=radius**2)
cov(x0[Id,])

qalpa<-qchisq(alpha,p)
diag(1/(alpha/(pchisq(qalpa,p+2))),p)

Log[αn]]Σ=ichichpμμ=00p

(3)pLogF.χp+22(qα)- -pLogα
  1. Croux C., Haesbroeck G. (1999). Einflussfunktion und Effizienz des Streuungsmatrixschätzers mit minimaler Kovarianzdeterminante. Journal of Multivariate Analysis. 71. 161-190.
user603
quelle