Psi_Y_nonort: Warping psi for points in Y, non normalized A

View source: R/warpings.R

Psi_Y_nonortR Documentation

Warping psi for points in Y, non normalized A

Description

Warping psi for points in Y, non normalized A

Usage

Psi_Y_nonort(y, A, pA = NULL, invA = NULL)

Arguments

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

See Also

Psi_Y if A has orthogonal columns

Examples

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)

mbinois/RRembo documentation built on Sept. 16, 2023, 10:15 p.m.