R/NMIextract.R

Defines functions NMIextract

Documented in NMIextract

## File Name: NMIextract.R
## File Version: 0.07


NMIextract <- function(results, expr, fun)
{
    pf <- parent.frame()
    results0 <- results
    if (!is.null(match.call()$expr)){
        expr <- substitute(expr)
        lapply( results0, FUN=function(results){
            lapply(results, function(result) eval(expr, result,pf))
                            } )
    } else {
        lapply( results0, FUN=function( results){
                lapply(results, fun)
                            } )
    }
}

Try the miceadds package in your browser

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

miceadds documentation built on May 29, 2024, 11:05 a.m.