gmm估计中如何提取rsqr和调整R_平方

下面的代码完美地提供了我对216个滚动窗口的gmm估计

    gmm_list <-  lapply(1:(length(ALLX$DE)-24), function(i) {
  tmp <- ALLX[i:(i+23),]
  DE <- as.matrix(as.numeric(tmp$DE))
  p <- nrow(DE) 
  rmrf_local <- as.matrix(as.numeric(tmp$rmrf_local))
  SMB_L <- as.matrix(as.numeric(tmp$SMB_L))
  HML_L <- as.matrix(as.numeric(tmp$HML_L))
  MOM_L <- as.matrix(as.numeric(tmp$MOM_L))
  bond_L <- as.matrix(as.numeric(tmp$bond_L))
  h <- cbind(rmrf_local,SMB_L,HML_L,MOM_L,bond_L)
  gmm(DE ~ rmrf_local+SMB_L+HML_L+bond_L, x=h)
})

但是，我无法提取adj.Rsquared

我使用了下面的代码，但我有

NULL

，有什么想法吗

> sapply(gmm_list, function(x) summary(x) $r.squared)
  NULL

---

@冻糕有什么想法吗？@森林生态学家有什么意见吗？没有关于gmm物体的R平方的报道。查看您自己的

summary.gmm（gmm_list[[1]]）

@Parfait您认为是否有办法手动计算（R2）？我见过一个stackoverflow帖子，它试图用自制的代码手动计算回归的标准误差。有什么想法吗？

> sapply(gmm_list, function(x) summary(x) $r.squared)
  NULL