data(wines)
set.seed(7)
sommap <- supersom(list(measurements = scale(wines),
vintages = vintages),
grid = somgrid(6, 4, "hexagonal"))
obj.dists <- object.distances(sommap, type = "data")
code.dists <- object.distances(sommap, type = "codes")
Run the code above in your browser using DataLab