r - R のカイ 2 乗の密度グラフ

Question

28 df が 7.5 までの x であるカイ 2 乗分布の密度関数のグラフを R でプロットしようとしています。

今まで、私が集めてきたものからこれを得ました：

x <- pchisq(7.5, 28, lower.tail=FALSE)
hist(x, prob=TRUE)
curve( dchisq(x, df=28), col='red', main = "Chi-Square Density Graph")

しかし、プロットは機能していないようです._.

Answer 1

私はあなたが欲しいと思います：

curve( dchisq(x, df=28), col='red', main = "Chi-Square Density Graph",
          from=0,to=60)
xvec <- seq(7.5,60,length=101)
pvec <- dchisq(xvec,df=28)
polygon(c(xvec,rev(xvec)),c(pvec,rep(0,length(pvec))),
        col=adjustcolor("black",alpha=0.3))

x>7.5この場合、曲線の下のほぼすべての領域が陰になっているため、グラフは少しばかげています。

pchisq(7.5,df=28,lower.tail=FALSE)
## [1] 0.9999611