powered by
IsEuclid
summary.dist
IsEuclid(distmat, plot = FALSE, print = FALSE, tol = 1e-07)
-tol*lambda1
lambda1
w <- matrix(runif(10000), 100, 100) w <- dist(w) summary(w) IsEuclid (w) # TRUE
Run the code above in your browser using DataLab