R 进行有序logistic回归时概率置信区间的确定

我有一个包含以下列的数据框（培训）：

       GPAGrpd    Subj1.Grade
1       [0,2)          6
2       [0,2)          6
3       [3,4.3]        1
4       [0,2)          6
5       [2,3)          2
6       [3,3.7)        3

我已运行以下命令：

 Res.clm <- clm(GPAGrpd ~ Subj1.Grade,data=training)
 summary(Res.clm)
 newdat <- data.frame(
      Subj1.Grade = rep(1:6, each = 200),
      GPAGrpd = factor(rep(1:4, each = 300))
 )
 newdat <- cbind(newdat, predict(Res.clm, newdata=newdat, se.fit=TRUE,
          interval=TRUE, type="prob"))

---

Res.clm我能够通过定义newdat来解决我的错误，如下所示：

    newdat <- data.frame(
      Subj1.Grade = rep(1:6, 200),
      GPAGrpd = factor(rep(1:4, each=300), 
                   labels = c("[0,2)","[2,3)","[3,3.7)","[3.7,4.3]"))
    )

newdat是的，它似乎起了作用。