I fitted the following model using the function gamlssZadj from the R package gamlss.inf:
fit <- gamlssZadj(y = score, mu.formula =~ bs(age) + gender + ran