## Install and source the XML Package
install.packages("XML")
library(XML)

## Get the data (change the path to wherever you save the file)
pinny <- xmlInternalTreeParse(file="C:/sports/R/pinnacleFeed.aspx.xml")
r <- xmlRoot(pinny)

## List of parent nodes
head(unlist(xpathApply(r[[4]], "//*", xmlName)))

## Game nodes
node <- xpathApply(pinny, "//events")

## Data I want in table format
lapply(node, saveXML)
xpathApply(pinny, "//events", xmlValue)