# NOT RUN {
data(tromso)
# draw heatmap of player #9's position
p <- soccerHeatmap(subset(tromso, id == 8), bins = 15, lengthPitch = 105, widthPitch = 68)
# add pitch lines to plot
soccerPitchFG(p, lengthPitch = 105, widthPitch = 68)
# }
Run the code above in your browser using DataLab