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))
Run the code above in your browser using DataLab