model.R
In melt: Multiple Empirical Likelihood Tests

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  dpi = 300
)

## ----setup, echo=FALSE--------------------------------------------------------
library(melt, warn.conflicts = FALSE)

## ---- eval = TRUE-------------------------------------------------------------
data("faithful")
str(faithful)
summary(faithful)

## -----------------------------------------------------------------------------
fit <- el_mean(faithful, par = c(3.5, 70))
class(fit)
showClass("EL")

## -----------------------------------------------------------------------------
fit

## -----------------------------------------------------------------------------
w <- faithful$waiting
(wfit <- el_mean(faithful, par = c(3.5, 70), weights = w))