set.seed(1)
X <- matrix(rnorm(50), nrow = 10)
D <- as.matrix(dist(X))
res <- compute.sigma(D) # automatically determine r
res$sigma
res$radius
res2 <- compute.sigma(D, r = 3) # user-specified r
res2$sigma
Run the code above in your browser using DataLab