"head" <-
function(x, ...) UseMethod('head')

"head.default" <-
function(x, n=6) 
{
	# placed in the public domain 2002 
	# Patrick Burns patrick@burns-stat.com
	if(is.matrix(x)) return(head.data.frame(x, n=n))
	if(is.function(x)) return(Recall(deparse(x), n=n))
	ans <- x[1:min(n, length(x))]
	if(length(dim(x)) == 1)
		array(ans, n, list(names(ans)))
	else
		ans
}

"head.data.frame" <-
function(x, n=6) 
{
	# placed in the public domain 2002 
	# Patrick Burns patrick@burns-stat.com
	n <- min(n, nrow(x))
	x[1:n,,drop=FALSE]
}