使用插入式火车的二项式GLM

我想在某个数据集上拟合二项式GLM。使用glm（...，family = binomial）一切都很好，但是我想使用插入符号train（）函数来做到这一点。不幸的是，我遇到了无法解决的意外错误。

library("marginalmodelplots")
library("caret")

MissUSA <- MissAmerica08[,c(2,4,6,7,8,10)]
formula<-cbind(Top10, 9-Top10)~.
glmfit <- glm(formula=formula,data=MissUSA,family=binomial())

trainfit<-train(form=formula,data=MissUSA,trControl=trainControl(method = "none"),   method="glm",  family=binomial()) 

我得到的错误是：“错误：nrow（x）== length（y）不正确”