1

我有一个名为的列表列表flat_head。

dput(flat_head)
structure(list(`0.25_0.05` = list(c(66, 102, 4.84), c(56, 75, 
3.63), c(15, 134, 0)), `0.25_0.1` = list(c(147, 27, 0), c(98, 
18, 4.84), c(141, 54, 4.84)), `0.5_0.05` = list(c(64, 130, 4.84
), c(61, 97, 4.84), c(58, 16, 4.84))), .Names = c("0.25_0.05", 
"0.25_0.1", "0.5_0.05"))

我编写了一个小函数来遍历每个列表并从空间点数据框中计算 Moran's I。它适用于单个列表，但是当我使用lapply.

require(spdep)
M_fun <-  function(x){
  x2 <- unlist(x[[1]])
  x3 <- matrix(x2,ncol = 3, byrow=TRUE)
  colnames(x3) <- c("x","y","prey")
  coords1<-as.data.frame(x3[,1:2])
  spdf <- SpatialPointsDataFrame(coords1,as.data.frame(x3[,3]))
  nm <- knn2nb(knearneigh(spdf))
  all.linked <- max(unlist(nbdists(nm, spdf)))
  nb <- dnearneigh(spdf, 0, all.linked)
  colW <- nb2listw(nb, style="W")
  results1<-moran(spdf@data$`x3[, 3]`, colW, length(nb), Szero(colW))
  return(results1)
}
y<- M_fun(flat_head) # works
final<-lapply(flat_head, M_fun) # does not work

关于我做错了什么有什么建议吗？

4

1 回答 1

1

y<- M_fun(flat_head) # works final<-lapply(flat_head, M_fun) # does not work

为了使这两个等效，您必须具有y <- M_fun(flat_head[[1]])或类似的功能，因为lapply()将函数应用于列表的每个元素。

目前我的猜测是，这y<- M_fun(flat_head)只是为 flat_head 的第一个列表提供 M_fun 的输出。这是因为你x2 <- unlist(x[[1]])在函数的第一行。

如果您将其更改为x2 <- unlist(x)它应该可以工作。

考虑使用dput(flat_head)来创建更好的可重现示例。

于 2017-12-07T15:39:18.067 回答