search for: bynametext

Displaying 1 result from an estimated 1 matches for "bynametext".

2007 Oct 17
1
passing arguments to functions within functions
...yvname <- formula[[2]] y <- eval(parse(text = ytext), data) xexp <- formula[[3]] if (length(xexp) > 1 && as.character(xexp[[1]]) == "|") { xvname <- xexp[[2]] byname <- xexp[[3]] xtext <- as.character(xexp[2]) bynametext <- as.character(xexp[3]) } else {xvname <- xexp; xtext <- as.character(xexp)} xv <- eval(xvname, data) byfac <- eval(byname, data) if (!missing(groups)) {groups <- eval(substitute(groups), data)} # none of the below seem to work sumdf1=do...