plot(som_model, type="codes")

