d <- 6
n <- 1000
n2 <- 1000
test <- matrix(runif(d * n), n)
ref <- matrix(runif(d * n), n)
indPF <- nonDom(ref, return.idx = TRUE)
all(nonDom(ref) == ref[indPF,])
system.time(res <- nonDom(test, ref[indPF,,drop = FALSE], return.idx = TRUE))
Run the code above in your browser using DataLab