Internal function for glmm.hp() to create diagonal matrix
creatbin(col, binmatrix)
col
Imput number.
binmatrix
Imput empty matrix.
a matrix
a matix
A diagonal matrix