lines = 'Month Boardings
July 41388
Aug 44880
Sept 33556
Oct 34805
Nov 33025
Dec 34873
Jan 31330
Feb 30954
March 32402
April 38020
May 42828
June 41204
July 44148
Aug 42038
Sept 35157
Oct 39568
Nov 34185
Dec 37604
Jan 28231
Feb 29109
March 38080
April 34184
May 39842
June 46727'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)