# NOT RUN {
data(tromso)
# draw average player position of players
p <- soccerPositions(tromso, lengthPitch = 105, widthPitch = 68, grass = TRUE)
# draw arrow showing direction of play
soccerDirection(p, "right", lengthPitch = 105, widthPitch = 68, grass = TRUE)
# }
Run the code above in your browser using DataLab