標本平均の分布を求めてみた

次のデータは本棚にあった本のページ数である。標本数が12、標本サイズが3で100回サンプリングした場合の分布を求めました。

141 232 491 476 101 181 392 348 163 207 357 296

実装

using Plots
using Statistics

x = [141, 232, 491, 476, 101, 181, 392, 348, 163, 207, 357, 296]

sample_means = []

for i ∈ 1:100
    push!(sample_means, mean(rand(x, 3)))
end

histogram(sample_means, label="Mean number of pages")

savefig("histogram.png")

出力

ちなみに母平均は282で、標本平均は290でした。