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...