## Generate some data
Data <- matrix(rnorm(300),ncol=10,nrow=30)
## Calculate distance matrix and transform its lower triangular matrix into a one
## dimensional array
d <- f_distance2vector(as.matrix(dist(Data)))Run the code above in your browser using DataLab