R/gx.subset.R

gx.subset <-
function (dfname, subset = TRUE) 
{
    subset <- eval(substitute(subset), dfname)
    data.frame(lapply(dfname[subset, ], function(x) if (is.factor(x)) 
        x[, drop = TRUE]
    else x), row.names = row.names(dfname)[subset])
}

Try the rgr package in your browser

Any scripts or data that you put into this service are public.

rgr documentation built on May 2, 2019, 6:09 a.m.