lines = 'xbar R
3.4   6
1.4   3
5.6   2
-2.6  7
1.2   6
-2.0  3
-8.2  7
-5.8  6
-7.8  2
-4.0  6
-5.0  5
-10.2 9
2.2   7
0.8   8
1.0   2
1.6   4
-7.8  3
-3.8  7
-2.0  2
0     0
1.2   2
0.8   3
0.6   3
-0.4  1
-0.2  1
0.6   1
0.2   2
0.2   1
0     2
-0.2  2
-4.0  2
-4.4  8
3.0   4
-0.8  3
-0.4  4
0.4   1
1.2   2
0.8   2
-1.0  3
-1.0  2'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)

Batch_1 = DF[1:20, ]
Batch_2 = DF[21:40, ]