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_radar(
  time,
  velocity,
  time_correction = 0,
  weights = 1,
  LOOCV = FALSE,
  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

LOOCV

Should Leave-one-out cross-validation be used to estimate model fit? Default is FALSE

na.rm

Logical. Default is FALSE

...

Forwarded to nlme function

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_radar(time, velocity) ) # sprint_model$parameters coef(sprint_model)
#> MSS TAU MAC PMAX #> 7.0032304 0.8013733 8.7390359 15.3003704 #> time_correction distance_correction #> 0.0000000 0.0000000