一個均勻分佈的母體 平均值為5000.5

U <- c(1:10000)
print(paste("mean = ",mean(U)))

## [1] "mean =  5000.5"

hist(U)

抽樣分配 -抽10個樣本，重複抽1000次

## [1] "mean =  4980.9681"

抽樣分配 -抽30個樣本，重複抽1000次

## [1] "mean =  5001.7456"

抽樣分配 -抽100個樣本，重複抽1000次

## [1] "mean =  4992.54563"