Average prediction mean squared error
ols_sp(model)
lm
SP
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars) ols_sp(model)#> [1] 0.26444