R/enlist.R

"enlist" <-
function(...)
{
	result <- list(...)
	if((nargs() == 1.) & is.character(n <- result[[1.]])) {
		result <- as.list(seq(n))
		names(result) <- n
		for(i in n)
			result[[i]] <- get(i)
	}
	else {
		junk <- sys.call()
		n <- NULL
		for(i in junk[-1.])
			n <- c(n, deparse(i))
		if(!is.null(n2 <- names(result))) {
			which <- n2 != ""
			n[which] <- n2[which]
		}
		names(result) <- n
	}
	result
}

Try the svmpath package in your browser

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

svmpath documentation built on July 14, 2020, 5:06 p.m.