a      b
1 3.6162 3.6808
2 3.8967 4.0155
3 4.0669 4.2945
4 4.3680 4.4321
5 4.0558 4.2071
6 3.9234 3.9131
7 3.7467 3.9533

data
        x name
1  3.6162    a
2  3.6808    b
3  3.7467    a
4  3.8967    a
5  3.9131    b
6  3.9234    a
7  3.9533    b
8  4.0155    b
9  4.0558    a
10 4.0669    a
11 4.2071    b
12 4.2945    b
13 4.3680    a
14 4.4321    b

 oneway.test(x~name, data = data)

    One-way analysis of means (not assuming equal variances)

data:  x and name
F = 0.77477, num df = 1.00, denom df = 11.97, p-value = 0.3961

a<-c(3.6162,3.8967,4.0669,4.368,4.0558,3.9234,3.7467)
b<-c(3.6808,4.0155,4.2945,4.4321,4.2071,3.9131,3.9533)

t.test(a,b,paired=T)

Paired t-test

data:  a and b
t = -3.6651, df = 6, p-value = 0.01052
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.19599321 -0.03906393
sample estimates:
mean of the differences
         -0.1175286