creatbin function

Internal function for glmm.hp() to create diagonal matrix