trait = data.frame(body = c(1,2,3,4,4), beak = c(1,1,1,1,2))
distance = gower(trait)
hyper = hyper.build(trait, axes = 2)
hyper.quality(distance, hyper)
hyper = hyper.build(trait, axes = 0)
hyper.quality(distance, hyper)
Run the code above in your browser using DataLab