使用r软件编写：假设100件产品中有8件不合格品，92件合格品。随机抽取5件进行检验，看其中有多少件不合格品。抽取5件之后剩下95件产品未抽取。这就有了两侧都给定的四格表。现发现抽取的5件中有k=1件不合格，通过计算n11≥k的概率来检验原假设n1=8是否正确。（原假设成立时， n11~HG(8,92,5)超几何分布 ） 经分析，现抽中不合格品数≥1个的概率为 [a1] ，故在0.05显著性水平下可以 [a2] 原假设。（填Y表示接受，填N表示拒绝）

以下是使用R语言计算的代码：

# 计算超几何分布概率
p <- 1 - phyper(0, 8, 92, 5)
a1 <- round(p, 3) # 精确到小数点后三位
a1 # 输出结果

# 判断是否接受原假设
if (p < 0.05) {
a2 <- "N"
} else {
a2 <- "Y"
}
a2 # 输出结果

其中，phyper()函数用于计算超几何分布的概率，第一个参数为符合条件的样本数量，第二个参数为总体中符合条件的样本数量，第三个参数为总体中不符合条件的样本数量，第四个参数为样本数量。由于题目中要求计算n11≥1的概率，因此第一个参数为0，即不符合条件的样本数量为0。最后通过判断概率是否小于0.05来确定是否接受原假设。