numVectors <- 5
dimension <- 10
Vectors <- matrix(runif(numVectors*dimension), numVectors, dimension)
distMat <- gpuDist(Vectors, "euclidean")
gpuHclust(distMat, "single")
gpuHclust(as.matrix(dist(Vectors)), "single")Run the code above in your browser using DataLab