Displaying 1 result from an estimated 1 matches for "seqargs".
Did you mean:
sargs
2012 Dec 27
0
Suggestion: 'method' slot for expand.grid() (incl. diffs)
...st or a set of vectors or factors
nargs <- length(args <- list(...))
@@ -26,7 +27,9 @@
if(nargs == 0L) return(as.data.frame(list()))
## avoid classed args such as data frames: cargs <- args
cargs <- vector("list", nargs)
- iArgs <- seq_len(nargs)
+ seqArgs <- seq_len(nargs)
+ method <- match.arg(method)
+ iArgs <- if(method=="decreasing") seqArgs else rev(seqArgs)
nmc <- paste0("Var", iArgs)
nm <- names(args)
if(is.null(nm))
### ./src/library/base/man/expand.grid.Rd ###########################...