if (FALSE) {
set.seed(123)
x <- rnorm(100) ; y <- rnorm(100)
A <- cbind(x, y)
NNS.norm(A)
### Normalize list of unequal vector lengths
vec1 <- c(1, 2, 3, 4, 5, 6, 7)
vec2 <- c(10, 20, 30, 40, 50, 60)
vec3 <- c(0.5, 0.6, 0.7, 0.8, 0.9, 1.0, 1.1, 1.2, 1.3)
vec_list <- list(vec1, vec2, vec3)
NNS.norm(vec_list)
}
Run the code above in your browser using DataLab