библиотека (nnet) data_1 <- multinom (класс ~ наука + социальные + математика, данные = экзамен) </p>
library(car)
Anova(df_1,type = "II",test="wald")
LR Chisq Df Pr(>Chisq)
science 12.104 3 0.007033 **
social 9.8347 3 0.020024 *
maths 7.2098 3 0.065503
я хочу вывод, как
LR chisq Df Pr(>Chisq)
grade1/science X X X
grade1/social X X X
grade1/maths X X X
grade2/science X X X
grade2/social X X X
grade2/maths X X X
grade3/science X X X
grade3/social X X X
grade3/maths X X X