eg: Attempt at streamlining expand.grid for prediction

In gmonette/spida15: Collection of miscellaneous functions for mixed models etc. prepared for SPIDA 2009+ (development version)

Usage

eg(df, by, ...)

Arguments

df
by
...

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (df, by, ...) 
{
    dots = list(...)
    by = model.frame(by, df, na.action = na.include)
    byn = names(by)
    names(byn) = byn
    args = lapply(byn, function(x) {
        vv = df[[x]]
        if (is.factor(vv)) 
            levels(vv)
        else unique(vv)
    })
    args = c(args, dots)
    do.call("expand.grid", args)
  }

gmonette/spida15 documentation built on May 17, 2019, 7:26 a.m.