data(bryceveg) # returns a vegetation data.frame
dis.bc <- dsvdis(bryceveg,'bray/curtis') # calculate a Bray/Curtis
# dissimilarity matrix
dis.met <- metrify(dis.bc) # calculate the nearest euclidean
# representation
Run the code above in your browser using DataLab