这是我的代码,但是在“fit<-lrm(formula,data=data,x=T,y =T)”运行后报错
报错内容为Error in X[, mmcolnames, drop = FALSE] : 下标出界

ddist <- datadist(tlog)
options(datadist ="ddist')
nomo <- rm( HTN outcome Age + Gender + Education leve + Insurance type + Smoke status + Exercise + Diabetes + HTN family history + BMI + Waist + SBP + DBP + FBG + SCr + BUN + TC + TG + HDL, data = tlog,x=T,y=T)