# NOT RUN {
# fake period data for tromso dataset, and flip direction of '2nd half'
tromso %>%
mutate(period = if_else(t > as.POSIXct("2013-11-07 21:14:00 GMT"), 1, 2))
soccerFlipDirection(pitchLength = 120, pitchWidth = 80, periodToFlip = 2)
# }
Run the code above in your browser using DataLab