母平均が
参照しました資料は https://qiita.com/DeepMata/items/ee9547e154fefd6e952c です。
「
よって、
始めに母分散
set.seed(20240630)
<- v2 <- vector()
v1 <- 10000
N <- rnorm(N, mean = 0, sd = 3)
X <- 20
n for (i in seq(1000)) {
<- sample(x = X, size = n, replace = T)
x <- sum((x - mean(x))^2) / (n - 1)
v1[i] <- sum((x - mean(x))^2) / n
v2[i]
}sum((X - mean(X))^2) / N
[1] 9.150467
続いて分母を n-1 とした不偏分散のベクトルの平均値等を確認します。
summary(v1)
Min. 1st Qu. Median Mean 3rd Qu. Max.
2.055 6.832 8.777 9.174 11.027 23.471
最後に分母を n とした場合の分散のベクトルの平均値等を確認します。
summary(v2)
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.952 6.491 8.338 8.716 10.476 22.297
以上です。