x <- matrix(rnorm(3000), nc = 3)
#Same results
set.seed(1)
a = depthProjection(x, x, ndir = 2000)
set.seed(1)
b = depthProjection(x, x, ndir = 2000)
all(a == b)
#Different
depthProjection(x, x, ndir = 2000) == depthProjection(x, x, ndir = 2000)Run the code above in your browser using DataLab