data(humDNAm)
humDNA.dist <- disc(humDNAm$samples, sqrt(humDNAm$distances), humDNAm$structures)
humDNA.dist
is.euclid(humDNA.dist$samples)
is.euclid(humDNA.dist$regions)
## Not run:
# data(ecomor)
# dtaxo <- dist.taxo(ecomor$taxo)
# ecomor.dist <- disc(ecomor$habitat, dtaxo)
# ecomor.dist
# is.euclid(ecomor.dist)
# ## End(Not run)
Run the code above in your browser using DataLab