MANOVA.RM post-hoc Error in if (object$nested) { : argument is of length zero

Question

I used the packacge RM.ANOVA to run my repeated measures multivariate anova and saved it in model1.

model1<-RM(A~exp*Od*PvN, data=allA,
           subject=