#Set team name
teamname="Mets"
decide=floor(runif(1,1,6))
post1="game"
post2=paste("How can they just roll over for the",teamname,"? Good teams wouldn't roll over for bad teams like this! He's not an ace!", sep=" ")
post3="Worst loss of the year"
post4="Are you Leo Davidson???"
post5="Something about Obama"
post6="Somewhat unrelated Excel spreadsheet"
switch(decide, post1,post2,post3,post4,post5,post6)
Get a free copy of R at
www.r-project.orgThis is version 0.1 - it needs more work