สูตรนั้นค่อนข้างตรงไปตรงมาหากตัวอย่างย่อยทั้งหมดมีขนาดตัวอย่างเท่ากัน หากคุณมีตัวอย่างย่อยของขนาดk (สำหรับตัวอย่างทั้งหมดg k ) ความแปรปรวนของตัวอย่างรวมขึ้นอยู่กับค่าเฉลี่ยE jและความแปรปรวนV jของแต่ละตัวอย่างย่อย:
V a r ( X 1 , … , X g k ) = k - 1gkgkEjVjโดยที่VR(EJ)หมายถึงความแปรปรวนของหมายถึงตัวอย่าง
Var(X1,…,Xgk)=k−1gk−1(∑j=1gVj+k(g−1)k−1Var(Ej)),
Var(Ej)
การสาธิตใน 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
หากขนาดตัวอย่างไม่เท่ากันสูตรจะไม่ดี
แก้ไข: สูตรสำหรับขนาดตัวอย่างที่ไม่เท่ากัน
หากมีตัวอย่างย่อยแต่ละชิ้นมีk j , j = 1 , … ,องค์ประกอบgสำหรับผลรวมของn = ∑ k jค่าจากนั้น
V a r (gkj,j=1,…,gn=∑kj
ที่ ˉ X =(∑ g j = 1 k
Var(X1,…,Xn)=1n−1(∑j=1g(kj−1)Vj+∑j=1gkj(X¯j−X¯)2),
คือค่าเฉลี่ยถ่วงน้ำหนักของค่าเฉลี่ยทั้งหมด (และเท่ากับค่าเฉลี่ยของค่าทั้งหมด)
X¯=(∑gj=1kjX¯j)/n
อีกครั้งการสาธิต:
> 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