Amemiya's prediction error

ols_pc(model)

Arguments

model
an object of class lm

Value

PC

Examples

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