仿照mlogit包里面的说明编程内容如下：
data1 <- read.csv("DATA401.csv",header = TRUE)
data2 <- read.csv("DATA402.csv",header = TRUE)
head(data1,4)
head(data2,4)
GG <- mlogit.data(data2,shape = "long",choice = "ch", alt.var = "CARTYPE",ranked = TRUE)
head(GG)
GG <- mlogit.data(data1,shape = "wide",choice = "ch",varying = 1:3,ranked = TRUE)
head(GG,20)
nrow(GG)
summary(mlogit(ch ~SEX+ QUA +DIS +INPUT +PRICE ,data = GG,reflevel = "CC"))
运行后提示错误如下：
Error in solve.default(H, g[!fixed]) :   Lapack routine dgesv: system is exactly singular: U[3,3] = 0