R 如何运行有序逻辑回归而不忽略权重？

假设我有这个数据集：

require(rms)

newdata <- data.frame(eduattain = rep(c(1,2,3), times=2), dadedu=rep(c(1,2,3),each=2),
                      random=rnorm(6, mean(1000),sd=50))

我有理由相信，如果使用权重，结果会大不相同

---

我怎样才能修好它？处理此警告的大多数问题都不能正确回答此特定警告。（，）

有人需要修改

rms

包中

validate.lrm

和

predab.resample

的代码。代码位于github的

newdata$eduattain <- factor(newdata$eduattain, levels = 1:3, labels = c("L1","L2","L3"),
                            ordered = T)
newdata$dadedu <- factor(newdata$dadedu, levels = 1:3, labels = c("L1","L2","L3"))

model1 <- lrm(eduattain ~ dadedu, data=newdata, weights = random, normwt = T)

In lrm(eduattain ~ dadedu, data = newdata, weights = random, normwt = T) :
  currently weights are ignored in model validation and bootstrapping lrm fits