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