Self Organizing Maps in Mathematica (SOMs)

Does anybody know of, or have, a reasonable implementation of SOMs in Mathematica?

Why Kohonen networks are called as self organized feature maps?

Kohonen Map or Self-Organizing Map (SOM) is a type of neural network. This was developed by Tuevo Kohonen in 1982. The name Self-organizing because it does not require supervision. This follows an unsupervised learning approach and its network is trained through a competitive learning algorithm.

What is the purpose behind Kohonen maps?

The concept of a self-organizing map, or SOM, was first put forth by Kohonen. It is a way to reduce data dimensions since it is an unsupervised neural network that is trained using unsupervised learning techniques to build a low-dimensional, discretized representation from the input space of the training samples.

There is a third-party Mathematica package called machine learning framework, which implements self-organizing maps.