Formuła jest dość prosta, jeśli wszystkie podpróbki mają ten sam rozmiar próby. Jeśli miał sub-próbek o rozmiarze K (w sumie g k próbek), a następnie odchylenie w połączonej próbki w zależności od średniej e j i wariancji V j każdego sub-próbce:
V do R ( X 1 , … , X g k ) = k - 1gkgkEjVjgdzie przezVar(Ej)oznacza wariancję średnich próbek.
Var(X1,…,Xgk)=k−1gk−1(∑j=1gVj+k(g−1)k−1Var(Ej)),
Var(Ej)
Demonstracja w języku R:
> x <- rnorm(100)
> g <- gl(10,10)
> mns <- tapply(x, g, mean)
> vs <- tapply(x, g, var)
> 9/99*(sum(vs) + 10*var(mns))
[1] 1.033749
> var(x)
[1] 1.033749
Jeśli rozmiary próbek nie są równe, formuła nie jest taka ładna.
EDYCJA: wzór na nierówne wielkości próbek
Jeżeli istnieją sub-próbek, zaś każda z k j , j = 1 , ... , G elementy w sumie n = Ď k j wartości, wtedy
V R ( X 1 , ... , x n ) = 1gkj,j=1,…,gn=∑kj
gdzie ˉ X =(∑ g j = 1 kj ˉ X j)/njest średnią ważoną wszystkich średnich (i jest równa średniej wszystkich wartości).
Var(X1,…,Xn)=1n−1(∑j=1g(kj−1)Vj+∑j=1gkj(X¯j−X¯)2),
X¯=(∑gj=1kjX¯j)/n
Ponownie demonstracja:
> k <- rpois(10, lambda=10)
> n <- sum(k)
> g <- factor(rep(1:10, k))
> x <- rnorm(n)
> mns <- tapply(x, g, mean)
> vs <- tapply(x, g, var)
> 1/(n-1)*(sum((k-1)*vs) + sum(k*(mns-weighted.mean(mns,k))^2))
[1] 1.108966
> var(x)
[1] 1.108966
(Xji−X¯)2X¯j[(Xji−X¯j)−(X¯j−X¯)]2