用某种保色剂进行诱发肿瘤试验。实验组15只小白鼠中4只发生癌变，对照组10只无一只发生癌变。试问该保色剂是否有诱癌作用?用R语言编写该问题的单侧检验代码

假设该保色剂无诱癌作用，即原假设H0为p=0.1，备选假设Ha为p>0.1，其中p表示该保色剂的诱癌率。使用二项分布检验进行单侧检验。

代码如下：

# 实验组小白鼠总数
n1 <- 15
# 实验组小白鼠发生癌变的数量
x1 <- 4
# 对照组小白鼠总数
n2 <- 10
# 对照组小白鼠发生癌变的数量
x2 <- 0
# 假设该保色剂无诱癌作用，即原假设H0为p=0.1
p0 <- 0.1
# 使用二项分布检验进行单侧检验
p_value <- pbinom(x1, n1, p0, lower.tail = FALSE)
if (p_value < 0.05) {
cat("拒绝原假设，该保色剂有诱癌作用\n")
} else {
cat("不能拒绝原假设，该保色剂无诱癌作用\n")
}

运行代码后，输出结果为"拒绝原假设，该保色剂有诱癌作用"，因此可以得出结论：该保色剂有诱癌作用。