我有一个长格式的联合调查数据。前几行如下所示:
ID alt choice size tar length brand flavor gender age yr_smoke num_smoke job
1 1 1 no 1 1 1 1 1 2 35 10 20 1
2 1 2 no 1 1 1 1 1 2 35 10 20 1
3 1 3 no 1 1 1 1 1 2 35 10 20 1
4 1 4 no 1 1 1 1 1 2 35 10 20 1
5 1 5 no 1 1 1 1 1 2 35 10 20 1
6 1 6 no 1 1 1 1 1 2 35 10 20 1
我使用 mlogit.data 作为:
data_mlogit_ct1_test2 <- mlogit.data(data_mlogit_ct1_test1,choice="choice",
shape="long",alt.var="alt")
转换后的数据的前几行如下所示:
ID alt choice size tar length brand flavor gender age yr_smoke num_smoke job
1.1 1 1 FALSE 1 1 1 1 1 2 35 10 20 1
1.2 1 2 FALSE 1 1 1 1 1 2 35 10 20 1
1.3 1 3 FALSE 1 1 1 1 1 2 35 10 20 1
1.4 1 4 FALSE 1 1 1 1 1 2 35 10 20 1
1.5 1 5 FALSE 1 1 1 1 1 2 35 10 20 1
1.6 1 6 FALSE 1 1 1 1 1 2 35 10 20 1
现在我正在尝试将 mlogit 拟合为:
fit_mlogit_ct11 <- mlogit(choice~size+tar+length+brand+flavor,
data_mlogit_ct1_test1,shape="long",chid.var="ID",
alt.var="alt",method="bfgs",heterosc=TRUE,tol=10)
我收到了这个错误:
solve.default(crossprod(attr(x, "gradi")[, !fixed])) 中的错误:Lapack 例程 dgesv:系统完全是奇异的
然后我做了:
fit_mlogit_ct11 <- mlogit(choice~size+tar+length+brand+flavor, data_mlogit_ct1_test2)
现在我得到了:
solve.default(H, g[!fixed]) 中的错误:系统在计算上是奇异的:倒数条件数 = 3.4767e-18
有人能帮帮我吗?