超几何分布检验(hypergeometric test)以及R中实现

超几何分布检验常用来对venn图两个圈overlap的显著性进行检验
设总共有29个人,其中11个吸烟者,18个非吸烟者,现从中随机抽取16个样本(在此实验中对应着肺癌病人),有10个是吸烟者,这样的事件是否显著?用venn图表示为:

image.png

用R语言计算:
p-value=phyper(10-1, 11, 18, 16, lower.tail=F)=0.003135274
可以看出此结果跟我们在2中手动算出来的结果相同,为单侧检验。

设总共有29个人,其中16个癌症患者,13个正常人,现从中随机选出11个人(对应着所有抽烟的人),有10个是癌症患者,这样的事件是否显著?用venn图表示为


image.png

(左边的圈为抽样出来的11个样本,可以分为两类:癌症患者和非癌症患者)
p-value=phyper(10-1, 16, 13, 11, lower.tail=F)=0.003135274

转自:超几何分布检验(hypergeometric test)与费歇尔精确检验(fisher's exact test)
https://blog.csdn.net/linkequa/article/details/88189582

1,超几何分布的定义
总共有N件产品,其中M件次品,现在从中抽取n件做检查,抽到k件次品的概率分布服从超几何分布。
P(k,N,M,n)=((Mk))∗((N−Mn−k))(Nn),其中k=0,1,2,...MP(k,N,M,n)=((Mk))∗((N−Mn−k))(Nn),其中k=0,1,2,...M P(k, N, M, n) = \frac{\left(M \choose k \right)*\left(N-M \choose n-k \right)}{N \choose n},其中k = 0, 1, 2, ...MP(k,N,M,n)=(nN)((kM))∗((n−kN−M)),其中k=0,1,2,...M
2,超几何分布检验
给定一个超几何分布,算出比某个事件更极端的概率,可以称为超几何分布检验。
比如在两个圈的venn图中,想要计算overlap是否显著:


image.png

假设总共的基因个数为20000个,图中左边圈总数3005可以看成是次品的总个数,现从中抽取805个产品,需要计算得到次品个数大于等于265的概率。
思考过程:在次品个数是少数的情况下,overlap越高,从超几何分布来看,发生的概率越小。现在的overlap是265,可能会是过高的那种情况,那么现在计算overlap是265以及大于265的概率之和,如果这个概率很小,那就说明发生265这个事件不是随机的,进而就推出来了overlap为265是显著性高的一个事件。

注意:这里好像和GO分析实现方法不一样,GO考虑总数,这里只是看overlap是不是偶然。

3,fisher精确检验(Fisher exact-test)的原理基于超几何分布,实际就是超几何分布检验。
4,R包中实现
R中自带超几何分布的检验(stats包)

4.1 方法1

phyper(q-1, m, n, k, lower.tail=F) #备择假设为"more"的情况
Note:两种方法的参数如下:
q = the number of white balls drawn from the urn (without replacement)
q对应到抽样问题,为k
m = the number of white balls in the urn
m对应到抽样问题,为M
n = the number of black balls in the urn
n对应到抽样问题,为N-M
k = the number of balls drawn from the urn (sample size)
k对应到抽样问题,为n
Note: lower.tail使用的逻辑为: if TRUE (default), probabilities are P[X ≤ x], otherwise, P[X > x].
1, 当备择假设为"less"时,即关心左端的那一部分(overlap小的那一端),无论怎么设置lower.tail,q不用q-1替代;
2,当加上lower.tail=F参数时,备择假设为"more"时,即关心右端的那一部分(overlap大的那一端),无论怎么设置lower.tail,q必须用q-1替代。

结合前面例子进行类比分析:

image.png

算出来结果如下:> phyper(264,3005,16995,805,lower.tail = F)
[1] 9.86227e-39
和前面不一样,怀疑是总数20000可能不是真实值。

另外一个例子

R里面进行计算超几何分布的p值

a <- 2380
b <- 2313
inter <- 345
> phyper(inter-1, a, 20000-a, b, lower.tail = F)
[1] 2.098632e-06

这里的a为A数据集的基因数(数据较大的一方),b为B数据集的基因数(数据较小的一方),inter为两者交集的基因数。20000代表的是背景基因总数。

亚细胞定位的富集分析

比如总共30000个蛋白,修饰组鉴定稻7000个蛋白,有700个位于叶绿体,水稻中叶绿体蛋白总共有2000个,那么这500个富集与否?

image.png
> phyper(700-1, 6300, 30000-6300, 2000, lower.tail = F)
[1] 4.890653e-51

这里考虑的是:当加上lower.tail=F参数时,备择假设为"more"时,即关心右端的那一部分(overlap大的那一端),无论怎么设置lower.tail,q必须用q-1替代。所以为何700-1了。
作者:柳叶刀与小鼠标
链接:https://www.jianshu.com/p/f8be8e17c25f
来源:简书
著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。

————————————————
版权声明:本文为CSDN博主「JasonKQLin」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/linkequa/java/article/details/86491665

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 212,222评论 6 493
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 90,455评论 3 385
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 157,720评论 0 348
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 56,568评论 1 284
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 65,696评论 6 386
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 49,879评论 1 290
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 39,028评论 3 409
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 37,773评论 0 268
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 44,220评论 1 303
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 36,550评论 2 327
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 38,697评论 1 341
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 34,360评论 4 332
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,002评论 3 315
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 30,782评论 0 21
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,010评论 1 266
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 46,433评论 2 360
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 43,587评论 2 350