for(i in 1:ncol(mldata))
{
mlogit.mydata=mlogit(severity ~ 1|mldata[,i],data=mldata)
mlogit[i]=summary(mlogit.mydata)$lratio$p.value
}
It gives the the following error: Error in solve.default(H, g[!fixed]) : Lapack routine dgesv: system is exactly singular: U[57,57] = 0