估计高维多元逻辑回归，附件有程序和数据。
library(textir)
mydata <- read.table("player and team.csv",header=TRUE,sep=",")
Y <- mydata[,1]
XT <- mydata[,2:5]
XP <- mydata[,6:67]
X <- cbind(XP,XT)
pen <- c(rep(data.frame(c(0,1)),4),rep(data.frame(c(7.5,.5)),ncol(XP)))
fit <- mnlm(counts=Y,covars=X,penalty=pen,normalize=FALSE)
运行程序时提醒：
Error in dmr(cl, covars, counts, mu, bins, verb, ...) :
缺少参数"cl",也没有缺省值