lines = 'Years_After_1981 Dow_Jones_Industrial_Average 0 947 1 871 2 1076 3 1221 4 1287 5 1571 6 2158 7 1958 8 2342 9 2591 10 2736 11 3223 12 3310 13 3978 14 3844 15 5395 16 6813 17 7907 18 9359 19 10941' con = textConnection( lines ) DF = read.table( con, header=TRUE ) close(con)