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