data("Hepta")
e = esomTrain(Hepta$Data, Key = 1:nrow(Hepta$Data))
umatrix = umatrixForEsom(e$Weights,
Lines=e$Lines,
Columns=e$Columns,
Toroid=e$Toroid)
plotMatrix(umatrix,e$BestMatches)
Run the code above in your browser using DataLab