shorts_model
objectR/shorts_S3.R
summary.shorts_model.Rd
S3 method for providing summary for the shorts_model
object
# S3 method for shorts_model summary(object, ...)
object |
|
---|---|
... | Not used |
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 simple_model <- with( split_times, model_using_splits(distance, time) ) summary(simple_model)#> #> Formula: corrected_time ~ TAU * I(LambertW::W(-exp(1)^(-distance/(MSS * #> TAU) - 1))) + distance/MSS + TAU #> #> Parameters: #> Estimate Std. Error t value Pr(>|t|) #> MSS 7.39375 0.06348 116.48 1.4e-06 *** #> TAU 0.63774 0.02965 21.51 0.00022 *** #> --- #> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 #> #> Residual standard error: 0.0224 on 3 degrees of freedom #> #> Number of iterations to convergence: 4 #> Achieved convergence tolerance: 3.406e-07 #>