必要なことと余分なことの区別

上三角行列のデータから対象行列を作る

ちょっと余分なことをしているので，

dist.mat2 = function(x, n) {
    m = matrix(0, n, n)
    m[lower.tri(m)] = x
    return(m+t(m))
}
dist.mat2(1:6, 4)

このブログで代入記号を使うとまずいことになるので = を使う