版权声明：本人博文一律不许转载，如发现转载，需负法律责任 https://blog.csdn.net/qq_38984677/article/details/82734793
单样本泊松分布总体的发生率检验是对泊松分布的速率参数λ或两个速率参数之间的比率进行的精准测试
poisson.test(x, T = 1, r = 1, alternative = c("two.sided", "less", "greater"), conf.level = 0.95)
#x-事件数量,T-事件计数的时间基准,r-假设的比率假设一次市场推广活动中前一小时有50人注册，后一小时有60人注册，后一小时的注册人数是否明显高于前一小时？
H0：后一小时注册用户数量与前一小时无差异(因为明显后一小时注册人数比前一小时的多，所以无小于符号)。H1：后一小时注册用户数量显著高于前一小时
poisson.test(x = 60,T = 50,r=1,alternative = "greater",conf.level = 0.95)
#备择假设:true event rate is greater than 1;H0- T/x>=1
#可进一步使用累计概率分布函数求出临界值qpois(0.95,lambda=50)