如何计算Eta Squared？复现结果与幻灯片不符求排查

我原本认为Eta Squared是组间变异与总平方和的比值，但用R代码复现数据计算后，结果与幻灯片内容不符，希望明确正确的计算方法。

我的R计算代码 #

G1 <- c(6.3, 2.8, 7.8, 7.9, 4.9)
G2 <- c(9.9, 4.1, 3.9, 6.3, 6.9)
G3 <- c(5.1, 2.9, 3.6, 5.7, 4.5)
G4 <- c(1.0, 2.8, 4.8, 3.9, 1.6)

n1 <- length(G1); n2 <- length(G2); n3 <- length(G3); n4 <- length(G4)

m1 <- sum(G1)/n1; m2 <- sum(G2)/n2; m3 <- sum(G3)/n3; m4 <- sum(G4)/n4
Gmean <- sum(c(G1,G2,G3,G4))/(n1 + n2 + n3 + n4)

SSb <- n1*((m1-Gmean)^2) + n2*((m2-Gmean)^2) + n3*((m3-Gmean)^2) + n4*((m4-Gmean)^2)

S1 <- var(G1); S2 <- var(G2); S3 <- var(G3); S4 <- var(G4)
SSw <- (n1-1)*S1 + (n2-1)*S2 + (n3-1)*S3 + (n4-1)*S4

SSt <- SSb + SSw

幻灯片中的Eta Squared说明 #

幻灯片中显示的Eta Squared计算公式为：

η² = 组间平方和（SS_between） / 总平方和（SS_total）

我怀疑自己的计算公式存在错误，导致结果不一致。

内容的提问来源于stack exchange，提问作者Seydou GORO