T检验在R中失败

Iam使用R运行大量数据，使用来自分隔表的输入，该表由40000行和4列组成。Iam尝试实现t测试，p值，但我有一个错误，即（数据基本上是常量），我使用for循环并应用这两种情况我有相同的问题代码是：

NormData3= NormData1[1:40000,1:5]
for(i in 1:nrow(NormData3)) {
g1=NormData3[i,2:3] 
g2=NormData3[i,4:5] 
p[i]=t.test(g1,g2,var.equal=TRUE)$p.value
 }

---

我不知道问题出在哪里？？？

软件能够识别出一个明智的选择的情况，这很好 答案无法计算。在这一点上，有两种可能的行动： （1） 以提示性错误停止，（2）静默返回NA

如果在迭代循环中运行，则需要第二个输出。下面是一个小函数：

     my.t.test.p.value <- function(...) {
    obj<-try(t.test(...), silent=TRUE)
    if (is(obj, "try-error")) return(NA) else return(obj$p.value)
}

---

my.t.test.p.value什么错误？给我们一些数据样本。