カイ二乗分布のグラフ
例1. 自由度19のカイ二乗分布
| DF<-function(x)dchisq(x,19) plot(DF,0,50) |
例2. カイ二乗分布の塗りつぶし指定
以下は塗りつぶしのための関数chisqpaint()の定義です。
| chisqpaint <- function(x1, x2,color) { xvals <- seq(x1, x2, length=50) dvals <- c(DF(xvals), 0, 0) xvals <- c(xvals, x2, x1) polygon(xvals, dvals, col=color) } |
もし10から20の範囲を塗りつぶすのであれば次のようにします。
| chisqpaint(10,20,color="pink") |
