S3 method for plotting shorts_model
object
# S3 method for shorts_model plot(x, type = NULL, ...)
x |
|
---|---|
type | Not used |
... | Not used |
ggplot object
split_times <- data.frame( distance = c(5, 10, 20, 30, 35), time = c(1.20, 1.96, 3.36, 4.71, 5.35) ) # Simple model with time splits simple_model <- with( split_times, model_using_splits(distance, time) ) coef(simple_model)#> MSS TAU MAC PMAX #> 7.3937467 0.6377437 11.5936019 21.4300389 #> time_correction distance_correction #> 0.0000000 0.0000000# Simple model with radar gun data 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) ) radar_model <- with( instant_velocity, model_using_radar(time, velocity) ) # sprint_model$parameters coef(radar_model)#> MSS TAU MAC PMAX #> 7.0032304 0.8013733 8.7390359 15.3003704 #> time_correction distance_correction #> 0.0000000 0.0000000