R/ones.R

In villardon/MultBiplotR: Multivariate Analysis Using Biplots in R

Defines functions ones

Documented in ones

ones <- function(n) {
	if (length(n) == 1) 
		res = matrix(1, n, n)
	else res = array(1, n)
	return(res)
}