vs <- matrix(c(0.951056516295154, 0.309016994374947,
0.224513988289793, 0.309016994374947,
-0.951056516295154, 0.309016994374948,
-0.363271264002681, -0.118033988749895,
0.587785252292473, -0.809016994374948,
0.36327126400268, -0.118033988749895,
0, 1,
-0.224513988289793, 0.309016994374947,
-0.587785252292473, -0.809016994374947,
0, -0.381966011250105),
ncol=2, byrow=TRUE)
sims <- runif_in_polygon(500, vs)
plot(sims, xlim = c(-1, 1), ylim = c(-1, 1), pch = 19, asp = 1)
Run the code above in your browser using DataLab