Amemiya's prediction error
ols_pc(model)
lm
PC
model <- lm(mpg ~ disp + hp + wt + qsec, data = mtcars) ols_pc(model)#> [1] 0.22591