lines = 'Age Percent
16 37
17 32
18 33
19 34
20 33
22 31
24 28
27 26
32 23
42 16
52 13
57 10
62 9
72 7'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)