Array function coding error for multlevel logit model with multivariate priors

Can you see if the new version posted here helps? This looks like a recently fixed bug which required R to be restarted