標準化正規分布グラフでシグマの範囲を見る

シグマの範囲

standard_inSigma <- {
  curve(dnorm, -4, 4, type="l")

  xs <- seq(-1, 1, length=n)
  ys <- dnorm(xs)
  polygon( c(xs,rev(xs)), c(rep(0,n),rev(ys)), col="red")
}

シグマの外の範囲

standard_outSigma <- {
  curve(dnorm, -4, 4, type="l")
  
  xs <- seq(-4, -1, length=n)
  ys <- dnorm(xs)
  polygon( c(xs,rev(xs)), c(rep(0,n),rev(ys)), col="blue")
  
  xs <- seq(1, 4, length=n)
  ys <- dnorm(xs)
  polygon( c(xs,rev(xs)), c(rep(0,n),rev(ys)), col="blue")
}