Psi_Y_nonort | R Documentation |
Warping psi for points in Y, non normalized A
Psi_Y_nonort(y, A, pA = NULL, invA = NULL)
y |
matrix of low dimensional coordinates, one point per row |
A |
random embedding matrix with non-othogonal columns |
pA |
optional projection matrix onto Ran(A) (i.e., D to d) |
invA |
optional pseudo inverse of A |
Psi_Y
if A
has orthogonal columns
set.seed(42)
d <- 2; D <- 5
library(MASS)
A <- selectA(d, D, type = 'standard')
size <- 5 # box size of Y
ntest <- 10000
Y <- size * (2 * matrix(runif(ntest * d), ntest, d) - 1)
Z <- Psi_Y(Y, A)
plot(Z)
Z2 <- Psi_Y_nonort(Y, A)
points(Z2, col = 'red')
library(far)
B <- orthonormalization(A, basis = FALSE)
Z3 <- Psi_Y(Y, B)
points(Z3, pch = 20)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.