Simple fix for R mlogit code

Looking for a simple fix to R code to be able to run an mlogit model for racing. Current code generates the following error:

Error in solve.default(H, g[!fixed]) :
system is computationally singular: