roger peng's listlabeling challenge

listlabeling.R

#roger peng's listlabeling challenge from
#http://simplystatistics.tumblr.com/post/11988685443/computing-on-the-language

#create three example variables for a list
x <- 1
y <- 2
z <- "hello"

#create the function
makeList <- function(...) {

	#put all values into a list
	argument_values <- list(...)

	#save all the objects available in the environment into the names vector,
	#excluding the first, which is the makeList function itself
	names(argument_values) <- as.list(sys.call())[-1]

	#return the newly-labeled function
	argument_values
}

#display the results
makeList( x , y , z )