# NOT RUN {
data(tromso_extra)
# draw flow field showing mean direction of player #8's movement
soccerFlow(subset(tromso_extra, id == 8), xBins = 5, grass = TRUE)
# draw flow field over player heatmap
p <- soccerHeatmap(subset(tromso_extra, id == 8), xBins = 5)
soccerFlow(subset(tromso_extra, id == 8), xBins = 5, plot = p)
# }
Run the code above in your browser using DataLab