R中的空间计量经济学：共同因素测试了空间Durbin与空间误差模型。如何计算？

Question

我想执行一个使用 空间误差模型和空间杜宾模型的似然比检验 （均为面板格式）。

我在R中找不到命令，这将有助于我 进行测试。因此，我试图使用splm软件包以及splm和plm软件包中的可用数据手动执行测试。

这是我的代码：

library(splm)
library(plm)

data(Produc, package="plm")
data(usaww)

Produc <- pdata.frame(Produc, index = c("state", "year"))


usaww<- mat2listw(usaww, style="W") 


Produc$slagUnemp <- slag(Produc$unemp, listw = usaww)


durbin <- spml(gsp~unemp + slagUnemp, 
                data=Produc, listw=usaww,  effect = "twoways", model="within", lag=TRUE, spatial.error = "none", quiet = FALSE)
spem  <- spml(gsp ~ unemp, 
                data=Produc, listw=usaww,  effect = "twoways", model="within", lag=FALSE, spatial.error = "b", quiet = FALSE)

从控制台输出中获取函数的最后一个值来计算似然比是否正确？

在此示例中，其含义是计算2 *（function（非嵌套）-function（nested））= 2 *（10261.79-10255.74）= 12.1？

如果正确，如何计算有效值？

如果不正确，是否有更好的方法来计算？