为每个列表对象在spatialreg :: lagsarlm中映射

Question

我正在尝试将mapply与spatialreg::lagsarlm（空间同时自回归滞后模型估计）结合使用，以对具有两个列表（listings_bronx）的对象进行回归。

spatialregression <- mapply(
  function(x, y) {
    spatialreg::lagsarlm(formula = model,
                         listw = x, 
                         data = y, 
                         tol.solve = 1.0e-10)
  }, 
  polygon_nyc_listw, 
  listings_bronx)

上面的函数创建一个长度为78的列表（列表[39 x 2]）。

仅运行

spatialregression <- spatialreg::lagsarlm(formula = model,
                                          listw = polygon_nyc_listw[[1]], 
                                          data = listings_bronx[[1]], 
                                          tol.solve = 1.0e-10)

创建一个长度为39的列表列表（列表[39]）。

我想将第一个包含多个列表，汇总（summary(spatialregression)）并创建一个data.table比较获得的系数。我已经尝试过summary(spatialregression[[1]])，但是它不起作用。

有人知道如何进行吗？谢谢！