## Adjusted empirical likelihood calibration
data("precip")
fit <- el_mean(precip, 32)
elt(fit, rhs = 100, calibrate = "ael")
## Bootstrap calibration
elt(fit, rhs = 32, calibrate = "boot")
## F calibration
elt(fit, rhs = 32, calibrate = "f")
## Test of no treatment effect
data("clothianidin")
contrast <- matrix(c(
1, -1, 0, 0,
0, 1, -1, 0,
0, 0, 1, -1
), byrow = TRUE, nrow = 3)
fit2 <- el_lm(clo ~ -1 + trt, clothianidin)
elt(fit2, lhs = contrast)
## A symbolic description of the same hypothesis
elt(fit2, lhs = c(
"trtNaked - trtFungicide",
"trtFungicide - trtLow",
"trtLow - trtHigh"
))
Run the code above in your browser using DataLab