Я безуспешно пытаюсь выполнить оценку Ареллано и Бонда (1991), используя pgmm
из пакета plm
. Чтобы увидеть, была ли проблема в моих данных, я вместо этого использовал данные, предоставленные в библиотеке plm, но столкнулся с той же проблемой при использовании сводной команды:
Ошибка в t (y)% *% x: несоответствующие аргументы
Однако коэффициенты модели можно получить.
Мои собственные данные: T = 3, N = 290. Насколько я понимаю, T = 3 - это минимум, но этого должно хватить. При использовании данных Ареллано и Бонда я получаю ту же ошибку при Т = 4.
data("EmplUK", package = "plm")
library(sqldf)
UK<-sqldf("select * from EmplUK where year in ('1982','1981',
'1980','1979')")
z1 <- pgmm(log(emp) ~ lag(log(emp), 1) + log(wage) +
log(capital) + log(output) | lag(log(emp), 2),
data = UK, effect = "twoways", model = "twosteps")
summary(z1)
Насколько я понимаю метод оценки и R-формулу, левый член - это разница в зависимой переменной, а первый правый член - это запаздывающая разница. И последний член сопровождается уровнем зависимой переменной в (t-2)
Я проверил, что используемое мной подмножество - это сбалансированная панель с T = 4. Когда я добавляю больше лет, все получается. Значит, проблемы должны быть связаны с длиной панели.
Любая помощь приветствуется.