R/model_using_instant_velocity.R
model_using_instant_velocity.Rd
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 )
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 |
weights | Numeric vector. Default is 1 |
na.rm | Logical. Default is FALSE |
List object with the following elements:
List with the following estimated parameters:
MSS
, TAU
, MAC
, and PMAX
List with the following components:
RSE
, R_squared
, minErr
, maxErr
, and RMSE
Model returned by the nls
function
Data frame used to estimate the sprint parameters, consisting of time
,
velocity
, weights
, and pred_velocity
columns
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.
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 #>