## Not run:
# urls <- c("http://gd2.mlb.com/components/game/mlb/year_2013/mobile/346180.xml",
# "http://gd2.mlb.com/components/game/mlb/year_2013/mobile/346188.xml")
# obs <- XML2Obs(urls)
# table(names(obs))
# ## End(Not run)
Run the code above in your browser using DataLab