Olympic Analysis script in R

updated to include a write model summary output to an html table with
xtable
Updated model output

using slightly modified script (to write to an html table)