data(bryceveg) # returns a vegetation dataframe
dis.bc <- dsvdis(bryceveg,'bray/curtis')
# returns an object of class \sQuote{dist}
veg.pco <- pco(dis.bc,k=4) # returns first 4 dimensions
Run the code above in your browser using DataLab