lines = 'sample x1 x2 x3 x4 x5 xbar R
1 3 0 -3 4 4 1.6 7
2 0 3 3 2 2 2.0 3
3 5 3 5 6 5 4.8 3
4 3 2 3 2 1 2.2 2
5 3 2 2 1 1 1.8 2
6 1 1 0 -3 3 0.4 6
7 2 -4 1 -2 2 -0.2 6
8 2 4 3 3 2 2.8 2
9 3 2 4 4 3 3.2 2
10 3 4 3 1 3 2.8 3
11 3 2 4 4 5 3.6 3
12 2 4 2 1 5 2.8 4
13 1 3 3 2 3 2.4 2
14 -5 -6 0 4 4 -0.6 10
15 1 0 4 4 5 2.8 5
16 4 4 3 5 1 3.4 4
17 6 6 6 8 4 6.0 4
18 3 8 -2 4 3 3.2 10
19 -5 3 -3 1 2 -0.4 8
20 1 7 8 -2 0 2.8 10
21 4 3 3 2 1 2.6 3
22 1 -1 5 3 4 2.4 6
23 1 2 -1 0 2 0.8 3
24 1 4 4 2 2 2.6 3
25 4 4 2 4 0 2.8 4
26 0 7 4 6 3 4.0 7
27 5 4 6 5 4 4.8 2'
con = textConnection( lines )
DF_1 = read.table( con, header=TRUE )
close(con)

DF_1$sample = NULL


lines = 'x1 x2 x3 x4 x5 xbar R
4 1 3 0 1 1.8 4
0 1 0 4 0 1.0 4
1 3 4 0 0 1.6 4
2 5 2 2 4 3.0 3
7 3 3 5 4 4.4 4
4 3 4 4 1 3.2 3
2 4 3 4 5 1.2 9
4 5 2 7 4 3.6 9
0 4 4 0 1 1.8 4
3 1 1 3 1 1.8 2
2 3 2 6 5 3.6 4
3 3 4 5 2 3.4 3
4 4 1 5 4 3.6 4
3 4 3 0 3 2.6 4
4 1 1 3 3 2.4 3
3 2 3 3 3 2.8 1
3 2 2 2 2 2.2 1
3 3 3 3 1 2.6 2
2 2 3 2 3 2.4 1
4 3 3 4 3 3.4 1
3 2 3 3 2 2.6 1
3 3 2 3 3 2.8 1
3 2 3 3 2 2.6 1
3 3 2 3 2 2.6 1
3 3 2 3 2 2.6 1
2 3 3 2 3 2.6 1
2 2 2 3 3 2.4 1
2 3 3 2 3 2.6 1
3 3 2 2 3 2.6 1
3 3 3 2 2 2.6 1
3 3 3 3 3 3.0 0
4 3 3 3 3 3.2 1
3 3 3 3 3 3.0 0'
con = textConnection( lines )
DF_2 = read.table( con, header=TRUE )
close(con)

DF = rbind( DF_1, DF_2 )