fileUrl <- "http://espn.go.com/nfl/team/_/name/bal/baltimore-ravens"
doc <- htmlTreeParse(fileUrl,useInternal=TRUE)
scores <- xpathSApply(doc,"//li[@class='score']",xmlValue)
teams <- xpathSApply(doc,"//li[@class='team-name']",xmlValue)
scores
[1] "49-27" "14-6" "30-9" "23-20" "26-23" "19-17" "19-16" "24-18"
[9] "20-17 OT" "23-20 OT" "19-3" "22-20" "29-26" "18-16" "41-7" "34-17"
teams
[1] "Denver" "Cleveland" "Houston" "Buffalo" "Miami" "Green Bay"
[7] "Pittsburgh" "Cleveland" "Cincinnati" "Chicago" "New York" "Pittsburgh"
[13] "Minnesota" "Detroit" "New England" "Cincinnati"