- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 368 个
- 通用积分
- 2.0000
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 3639 点
- 帖子
- 4
- 精华
- 0
- 在线时间
- 79 小时
- 注册时间
- 2016-5-16
- 最后登录
- 2022-8-2
大专生
还不是VIP/贵宾
- 威望
- 0 级
- 论坛币
 - 368 个
- 通用积分
- 2.0000
- 学术水平
- 0 点
- 热心指数
- 0 点
- 信用等级
- 0 点
- 经验
- 3639 点
- 帖子
- 4
- 精华
- 0
- 在线时间
- 79 小时
- 注册时间
- 2016-5-16
- 最后登录
- 2022-8-2
 | 开心 2022-8-2 02:08:54 |
|---|
签到天数: 179 天 连续签到: 1 天 [LV.7]常住居民III
|
10论坛币
|
panel是数据框,其数据形式如下:
- > dput(head(panel,n = 2))
- structure(list(time = 10:11, code = c("000002.SZ", "000002.SZ"
- ), Y = c(0, 0), jgcg = c(40.0698, 43.7155), mv = c(90380627991.96,
- 82134220328.46), eps = c(0.66, 0.88), qr = c(0.5568, 0.3702),
- TAI = c(56.7036, 37.364), bps = c(4.02, 4.82), a2d = c(74.6861,
- 77.0997), FAT = c(39.3809, 50.9921), TAT = c(0.2871, 0.2805
- ), SAT = c(0.2692, 0.253)), .Names = c("time", "code", "Y",
- "jgcg", "mv", "eps", "qr", "TAI", "bps", "a2d", "FAT", "TAT",
- "SAT"), row.names = 1:2, class = "data.frame")
复制代码- > head(panel)
- time code Y jgcg mv eps qr TAI bps a2d FAT TAT SAT
- 1 10 000002.SZ 0 40.0698 90380627992 0.66 0.5568 56.7036 4.02 74.6861 39.3809 0.2871 0.2692
- 2 11 000002.SZ 0 43.7155 82134220328 0.88 0.3702 37.3640 4.82 77.0997 50.9921 0.2805 0.2530
- 3 12 000002.SZ 0 49.9849 111274997554 1.14 0.4141 27.8835 5.80 78.3163 64.2845 0.3055 0.2823
- 4 13 000002.SZ 0 38.3900 88450200420 1.37 0.3372 26.5056 6.98 77.9970 72.3773 0.3157 0.3166
- 5 14 000002.SZ 0 42.6325 153421350664 1.43 0.4255 6.0941 7.99 77.2046 65.9685 0.2964 0.3161
- 6 15 000002.SZ 0 53.0831 269990888489 1.64 0.4259 20.2370 9.08 77.7015 54.1250 0.3493 0.4029
复制代码 以下是我的代码:
- form <- formula(panel$Y~panel$jgcg+panel$mv+panel$eps+panel$qr+panel$TAI+panel$bps
- +panel$a2d+panel$FAT+panel$TAT+panel$SAT)
- pool <- pglm(form,data = panel,model = 'pooling',family = binomial())
- rand <- pglm(form,data = panel,model = 'random',family = binomial())
- fixed <- pglm(form,data = panel,model = 'within',family = binomial(link = 'logit'))
复制代码 混合效应和随机效应都没有报错,固定效应出现如下报错:
- > fixed <- pglm(form,data = panel,model = 'within',family = binomial(link = 'logit'))
- Error in maxRoutine(fn = logLik, grad = grad, hess = hess, start = start, :
- argument "start" is missing, with no default
复制代码 不明白这里的start是怎么回事,要如何修改代码来正确拟合?
谢谢咯~
|
|