## Model
data("mtcars")
fit <- el_lm(hp ~ wt, data = mtcars)
## Confidence region
out1 <- confreg(fit, npoints = 500)
plot(out1)
## Empirical likelihood displacement
out2 <- eld(fit)
plot(out2)
## A shortcut to `ELD`
plot(fit)
Run the code above in your browser using DataLab