315 R -- 標本相関係数の分布（シミュレーション） 青木繁伸 2002/01/20 (日) 21:09
# 母相関係数=0の母集団からの標本相関係数のシミュレーション simulation.r <- function(n, trial=1000) { hist(sapply(rep(n, trial), function(n) { cor(rnorm(n), rnorm(n)) }), breaks=seq(-1,1,0.1), xlab="sample correlation coefficient", main="Result of Sample Survey") } op <- par(mfrow=c(2,2)) x <- sapply(c(5,10,25,50), simulation.r) par(op)
● 「統計学関連なんでもあり」の過去ログ--- 017 の目次へジャンプ● 「統計学関連なんでもあり」の目次へジャンプ ● 直前のページへ戻る