unitizer {arrowheadr}

Fit matrix to unit circle

Description

Fit matrix to unit circle

Usage

unitizer(x, center = rep(0, ncol(x)))

Arguments

x

matrix

center

center of matrix

Value

matrix

Examples

A = matrix(c(1, 2,
            -8,6,
             9,5),
            ncol = 2,
            byrow = TRUE)
unitizer(A)
cA <- unitizer(A, center = colMeans(A))
plot(cA, xlim = c(-1, 1), ylim = c(-1, 1))
t <- seq(0,2*pi, length.out = 361)
lines(cos(t), sin(t))