R/diagonal.R

Defines functions diagonal

Documented in diagonal

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

Try the MultBiplotR package in your browser

Any scripts or data that you put into this service are public.

MultBiplotR documentation built on Nov. 21, 2023, 5:08 p.m.