R/sl.dim.R

sl.dim <-
function (x) {
	
	if (is.vector(x)) {
		return(length(x))
	} else {
		return(dim(x))
	}
	
}
helgegoessling/spheRlab documentation built on July 14, 2024, 4:56 p.m.