R过程及结果：
> a <- c(22,212,57,4,5,1,5)
> b <- c(5,54,2,5,5,5,58,8)
> t.test(a,b,var.equal=T,alternative="less")

        Two Sample t-test

data:  a and b
t = 0.9125, df = 13, p-value = 0.8109
alternative hypothesis: true difference in means is less than 0
95 percent confidence interval:
     -Inf 76.35499
sample estimates:
mean of x mean of y
43.71429  17.75000

SAS结果
                                                  SAS 系统             2014年04月11日 星期五 下午02时43分08秒   6

                                                 The TTEST Procedure

                                                  Variable:  a  (a)

                     h              N        Mean     Std Dev     Std Err     Minimum     Maximum

                     0              8     17.7500     23.6869      8.3746      2.0000     58.0000
                     1              7     43.7143     76.7761     29.0186      1.0000       212.0
                     Diff (1-2)          -25.9643     54.9790     28.4543

            h             Method               Mean       95% CL Mean        Std Dev      95% CL Std Dev

            0                               17.7500     -2.0528  37.5528     23.6869     15.6612  48.2094
            1                               43.7143    -27.2918    114.7     76.7761     49.4740    169.1
            Diff (1-2)    Pooled           -25.9643    -87.4361  35.5075     54.9790     39.8572  88.5734
            Diff (1-2)    Satterthwaite    -25.9643    -97.3840  45.4554

                             Method           Variances        DF    t Value    Pr > |t|

                             Pooled           Equal            13      -0.91      0.3781
                             Satterthwaite    Unequal      6.9994      -0.86      0.4184

                                                Equality of Variances

                                  Method      Num DF    Den DF    F Value    Pr > F

                                  Folded F         6         7      10.51    0.0066


SPSS结果
                                        独立样本检验
                方差方程的 Levene 检验                                        均值方程的 t 检验
                                                                        差分的 95% 置信区间
                F        Sig.        t        df        Sig.(双侧)        均值差值        标准误差值        下限        上限
a        假设方差相等        2.970        .109        .912        13        .378        25.964        28.454        -35.508        87.436
        假设方差不相等                        .860        6.999        .418        25.964        30.203        -45.455        97.384


SAS和SPSS结果一直，两者与R结果不一致，请较专家，谢谢！