Function formats split data and calculates split distances, split times and average split velocity
Value
Data frame with the following columns:
- split
Split number
- split_distance_start
Distance at which split starts
- split_distance_stop
Distance at which split ends
- split_distance
Split distance
- split_time_start
Time at which distance starts
- split_time_stop
Time at which distance ends
- split_time
Split time
- split_mean_velocity
Mean velocity over split distance
- split_mean_acceleration
Mean acceleration over split distance
Examples
data("split_times")
john_data <- split_times[split_times$athlete == "John", ]
format_splits(john_data$distance, john_data$time)
#> split split_distance_start split_distance_stop split_distance
#> 1 1 0 5 5
#> 2 2 5 10 5
#> 3 3 10 15 5
#> 4 4 15 20 5
#> 5 5 20 30 10
#> 6 6 30 40 10
#> split_time_start split_time_stop split_time split_mean_velocity
#> 1 0 1.201 1.201 4.163197....
#> 2 1.201 1.967 0.766 6.527415....
#> 3 1.967 2.656 0.689 7.256894....
#> 4 2.656 3.314 0.658 7.598784....
#> 5 3.314 4.591 1.277 7.830853....
#> 6 4.591 5.849 1.258 7.949125....
#> split_mean_acceleration
#> 1 3.466442....
#> 2 3.086446....
#> 3 1.058750....
#> 4 0.519589....
#> 5 0.181730....
#> 6 0.094015....