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