testU | R Documentation |
Test if a given point is in U
testU(y, A)
y |
matrix corresponding to points to be tested |
A |
random embedding matrix |
## Identification of the U set
set.seed(42)
d <- 2; D <- 5
A <- selectA(d, D)
size <- 15 # box size of Y
ntest <- 10000
Y <- size * (2 * matrix(runif(ntest * d), ntest, d) - 1)
inU <- testU(Y, A)
colors <- rep('black', ntest)
colors[inU] <- 'green'
plot(Y, col = colors, pch = 20, cex = 0.5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.