覈讌 .
覈讌 覿螳 企 覈企讌 蟯.
襷 蠏 企慨. 伎 蟆蟆 襷 覦覲牛覃 れ 蠏れ .
蠏れ 覿 蠏覿.
覈讌 覿螳 企 覈企讌 蟯.
襷 蠏 企慨. 伎 蟆蟆 襷 覦覲牛覃 れ 蠏れ .
蠏れ 覿 蠏覿.
企 ..
x <- rnorm(10000, mean=100, sd=10)
x <- c(x, rnorm(10000, mean=70, sd=10))
mu <- c()
for(i in 1:1000){
mu <- c(mu, mean(sample(x, 4)))
}
par(mfrow=c(1,2))
hist(x, main="覈讌")
hist(mu, main="譴蠏麹襴")
par(mfrow=c(1,1))
鏤