R/diagonal.R

In villardon/MultBiplotR: Multivariate Analysis Using Biplots in R

Defines functions diagonal

Documented in diagonal

diagonal <- function(d) {
	n = length(d)
	D = diag(1, n, n)
	diag(D) <- d
	D
}