r 配对t 检验求助

求教各位大神：
       我在12个样本重检测了若干个mirna的表达数据，现在想进行配对t 检验。
       dl.txt的第二行case的为组别，这12个样本分别赋值为111222111222（其实就是abc三个患者治疗前，abc患者治疗后，def患者治疗前，def患者治疗后）。我用了附件中的r语句来进行配对t检验，可是总是提示




错误于if (stderr < 10 * .Machine$double.eps * abs(mx)) stop("data are essentially constant") :
  需要TRUE/FALSE值的地方不可以用缺少值
此外: 警告信息：
1: In mean.default(x) : argument is not numeric or logical: returning NA
2: In if (stderr < 10 * .Machine$double.eps * abs(mx)) stop("data are essentially constant") :
  条件的长度大于一，因此只能用其第一元素

     
    自己倒腾了很久，还是没有找到原因。求各位大神帮忙！