Family of functions that serve a purpose of finding maximal value and critical distances and times at which power, acceleration or velocity drops below certain threshold.
find_max_power_distance
finds maximum power and distance
at
which max power occurs
find_max_power_time
finds maximum power and time
at which
max power occurs
find_velocity_critical_distance
finds critical distance at which percent
of MSS
is achieved
find_velocity_critical_time
finds critical time at which percent
of MSS
is achieved
find_acceleration_critical_distance
finds critical distance at which percent
of MAC
is reached
find_acceleration_critical_time
finds critical time at which percent
of
MAC
is reached
find_power_critical_distance
finds critical distances at which maximal power over
percent
is achieved
find_power_critical_time
finds critical times at which maximal power over
percent
is achieved
find_max_power_distance( MSS, TAU, time_correction = 0, distance_correction = 0, ... ) find_max_power_time(MSS, TAU, time_correction = 0, ...) find_velocity_critical_distance( MSS, TAU, time_correction = 0, distance_correction = 0, percent = 0.9 ) find_velocity_critical_time(MSS, TAU, time_correction = 0, percent = 0.9) find_acceleration_critical_distance( MSS, TAU, time_correction = 0, distance_correction = 0, percent = 0.9 ) find_acceleration_critical_time(MSS, TAU, time_correction = 0, percent = 0.9) find_power_critical_distance( MSS, TAU, time_correction = 0, distance_correction = 0, percent = 0.9, ... ) find_power_critical_time(MSS, TAU, time_correction = 0, percent = 0.9, ...)
MSS, TAU | Numeric vectors. Model parameters |
---|---|
time_correction | Numeric vector. Used for correction. Default is 0. See references for more info |
distance_correction | Numeric vector. Used for correction. Default is 0. See vignettes for more info |
... | Forwarded to |
percent | Numeric vector. Used to calculate critical distance. Default is 0.9 |
find_max_power_distance
returns list with two elements: max_power
and distance
at which max power occurs
find_max_power_time
returns list with two elements: max_power
and
time
at which max power occurs
Haugen TA, Tønnessen E, Seiler SK. 2012. The Difference Is in the Start: Impact of Timing and Start Procedure on Sprint Running Performance: Journal of Strength and Conditioning Research 26:473–479. DOI: 10.1519/JSC.0b013e318226030b.
Samozino P. 2018. A Simple Method for Measuring Force, Velocity and Power Capabilities and Mechanical Effectiveness During Sprint Running. In: Morin J-B, Samozino P eds. Biomechanics of Training and Testing. Cham: Springer International Publishing, 237–267. DOI: 10.1007/978-3-319-05633-3_11.
dist <- seq(0, 40, length.out = 1000) velocity <- predict_velocity_at_distance( distance = dist, MSS = 10, TAU = 0.9 ) acceleration <- predict_acceleration_at_distance( distance = dist, MSS = 10, TAU = 0.9 ) # Use ... to forward parameters to the shorts::get_air_resistance pwr <- predict_relative_power_at_distance( distance = dist, MSS = 10, TAU = 0.9 # bodyweight = 100, # bodyheight = 1.9, # barometric_pressure = 760, # air_temperature = 25, # wind_velocity = 0 ) # Find critical distance when 90% of MSS is reached plot(x = dist, y = velocity, type = "l")max_pwr <- find_max_power_distance( MSS = 10, TAU = 0.9 # Use ... to forward parameters to the shorts::get_air_resistance ) abline(h = max_pwr$max_power, col = "gray")pwr_zone <- find_power_critical_distance(MSS = 10, TAU = 0.9, percent = 0.75) abline(v = pwr_zone$lower, col = "blue")