差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

次のリビジョン		前のリビジョン
prob:2011:05:12 [2011/05/12 13:06] – created wataluprob:2011:05:12 [不明な日付] (現在) – 外部編集 (不明な日付) 127.0.0.1
行 1: 行 1:
 ==== 第5回 ==== ==== 第5回 ====
 {{:prob:2011:05:normal-density.jpg|}} {{:prob:2011:05:normal-density.jpg|}}
 +
 +<code>
 +# 密度関数のグラフ
 +normaldensity <- function(x) { return(dnorm(x, mean=0, sd=1)) }
 +
 +# 濃淡のグラフ
 +a <- matrix(0, nrow=100, ncol=101)
 +for( i in c(1:100) ) {
 +  for( j in c(1:101) ) {
 +    x <- (j-51)/10
 +    a[,j] <- dnorm(x,mean=0,sd=1)
 +  }
 +}
 +x <- array(1:100)
 +y <- array(((0:100)-51)/10)
 +
 +# 描画
 +par(mfrow=c(2,1))
 +plot(normaldensity, -2.5, 2.5)
 +image(y,x,-t(a), xlab="x", ylab=NA)
 +</code>