如何解决Mathematica中的卡方桌
我想为任意给定数量的自由度k计算与给定卡方值相关的概率。我可以轻松想到以下代码:
P[chisquare_,k_] = Manipulate[NIntegrate[PDF[ChiSquaredistribution[k],x],{x,chisquare,Infinity}],{chisquare,10},{k,1,10}]
但是我想知道:有什么办法可以做相反的事情吗?我的意思是将概率P作为输入并获得相关的卡方值?就像我想编译类似https://www.medcalc.org/manual/chi-square-table.php
的卡方表一样我尝试使用Solve,但未完成任何操作,是否有简便的方法解决此问题?
解决方法
您可以与CFD
进行集成,并与Quantile
进行反向操作,例如
NIntegrate[PDF[ChiSquareDistribution[2],a],{a,3.0}]
0.77687
p = CDF[ChiSquareDistribution[2],3.0]
0.77687
Quantile[ChiSquareDistribution[2],p]
重新。您的链接
Quantile[ChiSquareDistribution[2],1 - #] & /@ {0.995,0.975,0.20,0.10,0.05};
SetPrecision[#,If[# < 1,3,4]] & /@ %
{0.0100,0.0506,3.219,4.605,5.991}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。