harrelfe

require(lattice)
## The following functions are in the HH package
panel.ae.dotplot <-
 function (x, y, groups, ..., col.AB, pch.AB, lower, upper)
{
    panel.num <- panel.number()
    if (panel.num == 1)
        panel.ae.leftplot(x, y, groups = groups,
            col = col.AB, pch = pch.AB, ...)
    if (panel.num == 2)