lines = 'Year Percent_Change_First_Week_Jan Percent_Change_Year
1991 -2.6  24.8
1992 -0.1   1.6
1993 -1.5  15.7
1994  1.7   2.1
1995  0.9  33.5
1996  1.2  28.2
1997  2.4  21.7
1998 -5.1  21.1
1999  4.8  25.5
2000  0.2  -6.2
2001 -1.2  -6.0
2002 -2.7 -16.2
2003  2.1  21.0
2004  0.5   1.9
2005 -1.7  -0.6
2006  2.2  16.3
2007 -0.5   7.2
2008 -1.5 -31.4'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)