Pada saat ini (versi 1.2-10) sepertinya case tidak seimbang tidak didukung. Saya telah melihat kode, dan baris persiapan data akhir (tidak peduli apa argumen awal Anda) adalah sebagai berikut:
object <- as.data.frame(split(object, id))
Jika Anda melewati panel tidak seimbang, baris ini akan membuatnya seimbang dengan mengulangi nilai yang sama. Jika panel Anda yang tidak seimbang memiliki deret waktu dengan panjang yang membagi satu sama lain, maka tidak ada pesan kesalahan yang dihasilkan. Ini adalah contoh dari halaman purtest:
> data(Grunfeld)
> purtest(inv ~ 1, data = Grunfeld, index = "firm", pmax = 4, test = "madwu")
Maddala-Wu Unit-Root Test (ex. var. : Individual Intercepts )
data: inv ~ 1
chisq = 47.5818, df = 20, p-value = 0.0004868
alternative hypothesis: stationarity
Panel ini seimbang:
> unique(table(Grunfeld$firm))
[1] 20
Disbalance it:
> gr <- subset(Grunfeld, !(firm %in% c(3,4,5) & year <1945))
Dua panjang seri waktu yang berbeda di panel:
> unique(table(gr$firm))
[1] 20 10
Tidak ada pesan kesalahan:
> purtest(inv ~ 1, data = gr, index = "firm", pmax = 4, test = "madwu")
Maddala-Wu Unit-Root Test (ex. var. : Individual Intercepts )
data: inv ~ 1
chisq = 86.2132, df = 20, p-value = 3.379e-10
alternative hypothesis: stationarity
Panel tidak seimbang lainnya:
> gr <- subset(Grunfeld, !(firm %in% c(3,4,5) & year <1940))
> unique(table(gr$firm))
[1] 20 15
Dan pesan kesalahan:
> purtest(inv ~ 1, data = gr, index = "firm", pmax = 4, test = "madwu")
Erreur dans data.frame(`1` = c(317.6, 391.8, 410.6, 257.7, 330.8, 461.2, :
arguments imply differing number of rows: 20, 15