eg: Attempt at streamlining expand.grid for prediction

Usage Arguments Examples

Usage

1
eg(df, by, ...)

Arguments

df
by
...

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
##---- 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.