lines = 'element xbar sigma
Antimony 29.50 2.13
Arsenic 29.89 1.51
Cadmium 28.94 2.05
Beryllium 25.87 3.89
Chromium 32.13 1.20
Zinc 29.14 .65
Zirconium 26.38 1.13
Phosphorous 28.64 1.42
Silicon 30.10 2.24
Calcium 28.63 1.41
Lead 31.67 .97
Tin 29.48 1.29'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)