create downloaddata.r

download data from ESPN