prior<-list(R1=list(V=diag(2),nu=0.002))
model<-MCMCglmm(y~x, rcov=~idh(type):units, prior=prior, family="poisson")