library(plm)
data("LaborSupply")
L <- pdata.frame(LaborSupply, index = c("id", "year"))
cipstest(L$lnhr)
Error: Error in cvals[nintl:ninth, tinth, i] : subscript out of bounds
library(plm)
data("LaborSupply")
L <- pdata.frame(LaborSupply, index = c("id", "year"))
cipstest(L$lnhr)
Error: Error in cvals[nintl:ninth, tinth, i] : subscript out of bounds