r - SOM における誤差の尺度の量子化

Question

Rを使用してSOMモデルの量子化誤差（qe）をカウントしたい.これは私が試したコードです：

data(yeast)## take only complete 
x <- yeast[[3]][apply(yeast[[3]], 1, function(x) sum(is.na(x))) == 0,]
yeast.som <- som(x, somgrid(5, 8, "hexagonal"))
## quantization error:
mean(yeast.som$distances)

そのコードは正しいですか？qe を数える別の方法はありますか?