Final prediction error
ols_jp(model)
lm
JP
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars) ols_jp(model)#> [1] 7.94966