This function models the sprint instantaneous velocity using mono-exponential equation that estimates maximum sprinting speed (MSS) and relative acceleration (TAU). velocity is used as target or outcome variable, and time as predictor.

model_using_instant_velocity(
  time,
  velocity,
  time_correction = 0,
  weights = 1,
  na.rm = FALSE
)

Arguments

time

Numeric vector

velocity

Numeric vector

time_correction

Numeric vector. Used to filter out noisy data from the radar gun. This correction is done by adding time_correction to time. Default is 0. See more in Samozino (2018)

weights

Numeric vector. Default is 1

na.rm

Logical. Default is FALSE

Value

List object with the following elements:

parameters

List with the following estimated parameters: MSS, TAU, MAC, and PMAX

model_fit

List with the following components: RSE, R_squared, minErr, maxErr, and RMSE

model

Model returned by the nls function

data

Data frame used to estimate the sprint parameters, consisting of time, velocity, weights, and pred_velocity columns

References

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.

Examples

instant_velocity <- data.frame( time = c(0, 1, 2, 3, 4, 5, 6), velocity = c(0.00, 4.99, 6.43, 6.84, 6.95, 6.99, 7.00) ) sprint_model <- with( instant_velocity, model_using_instant_velocity(time, velocity) ) sprint_model$parameters
#> $MSS #> [1] 7.00323 #> #> $TAU #> [1] 0.8013733 #> #> $MAC #> [1] 8.739036 #> #> $PMAX #> [1] 15.30037 #>