powered by
Internal function for rdacca.hp() to create diagonal matrix
creatbin(col, binmatrix)
Imput number.
Imput empty matrix.