lines = 'Club Altitude Number_of_Home_Runs
Cleveland       660     138
Milwaukee       635      81 
Detroit         585     135
New_York        55       90 
Boston          21      120
Baltimore       20       84 
Minnesota       815     106
Kansas_City     750      57 
Chicago         595     109
Texas           435      74 
California      340      61 
Oakland         25      120'
con = textConnection( lines )
DF = read.table( con, header=TRUE )
close(con)